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'50 ,tas. 


Canarias 160 ptas. 


GRAFICOS VIVOS 
A TODO COLOR 


INFUNDE 
INTELIGENCIA 
A TUS PROGRAMAS 
MEDIANTE LA TOMA 
DE DECISIONES 


A MSAMBLADOR: ,,,"' 


UN COMPLETISIMO 
ENSAMBLADOR 
PARA LOS 
ENTUSIASTAS DEL 
CODIGO MAQUINA 
GENERADOR 
DE CLA VES 
SECRETAS 
SOFTWARE 


007 ATACA 
DE NUEVO: 
A VIEW YO A KILL 
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REVISTA INDEPENDIENTE PARA USUARIOS DEORDENADORESA MSI1IAD
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LE OFRECE AHORA SUS 
PROGRAMAS Y A GRABADOS, 
PARA QUE VD. NO TENGA QUE 
TECLEARLOS 


, odos los programadores y aficionados a la 
microinformática sabemos lo tedioso y propenso a 
errores que resulta el teclear un listado de un 
programa. Para facilitar tu labor al máximo y que no 
tengas que estar horas sobre el teclado de tu 
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Todos 105 programas de nuestras cintas se encuentran 
desprotegidos, con el objeto de facilitar su copia en disco 
y la revisión de 105 listados. 


ordenador tratando de descifrar incomprensibles 
mensajes de error, AMSTRAD SEMANAL te ofrece 
cada mes los programas publicados de los cuatro 
números correspondientes en una cinta de cassette, 
sólo por 675 ptaso (sin más gastos por envío). 
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Programas incluidos en la cinta número I 
Titulo Revista número 
EASYDRAW I 
EGGBLlTZ 2 
CODIGO SECRETO 2 
VENTANAS 2 
BIORRITMOS 3 
MAD ADDER 3 
HEXER 3 
CHARGEN 4 
PROGRAMACION 4 
Programas incluidos en la cinta número 2 
Titulo Revista número 
GRAFICOS 8 
MUSICA 6 
TRON 6 
ENSAMBLADOR 8 
HEXERL 8 
TOOLKIT 8 
PRIMEROS PASOS 7 
INCOGNITON 7 
MONITOR 5 
ANALlSIS 5.8 
CEDRIC 8 
ANIMACIONI 7 
ANIMACION2 8 
SMALEY 7 
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TARJETA DE SUSCRIPCION AHORRO/REGALO 
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(Si lo prefieres suscribete por teléfono (91) 733 50 12 (91) 733 50 16) 
Oferta especial para recibir en tu domicilio todo un año la revista semanal 
Microhobby AMSTRAD 
con un descuento de 1.600 ptaso, iy el regalo de una cinta 
original por valor de 2.100 ptas.! 
FECHA LIMITE DE RESPUESTA: iSENALA EL NOMBRE DE LA CINTA QUE 
30 DE NOVIEMBRE DE 1985 PREFIERES Y LA RECIBIRAS EN TU CASA, 
¡RESPONDE HOY MISMO! GRATIS, A VUELTA DE CORREO! 
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Deseo suscnblrme a Microhobby AMSTRAD durante un año por sólo 5.900 ptas, , lo que me supone un ahorro de 1,600 ptas. 
1-1 pnmer numero que deseo recIbir es el 
I nvienmeGRATIS la cinta de programas que le Irldico con una (X) 
O Beach Head O Combal lynx O D.T. Decalhlon 


NOMBRE 
APELLIDOS 
DOMICILIO 
CIUDAD 
C. POSTAL 


EDAD 


J 


PROVINCIA 
PROFESION 


gramas es siempre 

ícil: aún no se ha 
) inviolable. 
7 de una posible 
fícil el acceso a 
ás que el listado en 
se esconde detrás 


TELEFONO 


Marco con una IX) en el casillero correspondiente la torma de pago que mas me conviene, 
O Talón bancarIO adlunto a nombre HOBBY PRESS, S. A. O Giro Postal N'" 
primer numero, junto a la cassette regalo. O VISA N n 
Fecha de caducIdad de la tarlela 


o Contra reembolso del 
O MAS fER CHARGE N.o 


Firma: 


6 Primeros 
pasos 
Estudiamos en este número los comando:; 
IF... THEN, la forma más común, aunque 
no la única, de conseguir que el Amstrand 
tome decisiones, y adopte un determinado 
curso de acción en función del 
cumplimiento o no de ciertas condiciones. 
Completamos así lo aprendido estudiando 
WHILE... WEND. 


Presidente 
Moría Andrina 
Consejero Delegado 
José 1. GÓmez-Centurión 


Jefe de Publicidad 
Concho Gutiérrez 
Publicidad Barcelona 
José Golón Cortes 
Tel: (93) 303 1022/31371 62 


Secretaria de Dirección 
Marisa Cogorro 
Suscripclones 
M. o Roso Gonzólez 
M. a del Mor Calzado 


Redacción, Administración 
y Publicidad 
lo Granja, sIn 
Patígano Industrial de Alcabendas 
Tel.: 654 32 11 
Telex: 49480 HOPR 


Serie oro 


, 


Gráficas es un programa que habla por 
sí mismo. Con él podemos representar 
gráficamente casi cualquier información 
numérica de multitud de maneras, 
observando cómo varía una magnitud a 
golpe de vista. 
Su compañero, llamado Cedric, es un 
;uego de inteligencia pensado para 
desarrollar la memoria y retentiva visual 
casi sin darse cuenta. 


Dto. Circulación 
Carlos Peropadre 
Distribución 
Coedis, S. A. Valencia, 245 
Barcelona 


Imprime 
ROTEDIC, S. A. Crta. de Irún. 
Km. 12,450 (MADRID) 
Fotocomposición 
Navacomp. S.A. 
Nicolós Morales, 38-40 
Fotomecónica 
GROF 
Ezequiel Solano, 16 
Depósito Legal: 
M-28468-1985 


Derechos exclusivos 
de lo revisto 
COMPUTlNG with 
the AMSTRAD 
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Representan1e paro Argentina, Chile, 
Uruguay y Paraguay, Cia. 
Americano de Ediciones. S. R.L. Sud 
Amór;co 1.532. Te!., 2' 2464. 1209 
BUENOS AIRES (Argentino). 
M. H. AMSTRAD no se hace 
necesariamente solidaria de las 
opiniones vertidas por sus 
(olaboradorcs en los orhculos 
firmados. Re<ervados todos los 
derechos. 


\ 


-.; 

 - 
¿-./ 


",,>. 


--- 
f. 
-:" '. 
... 


. ;" ..)J 

 l . 

j< \ :'
 


, 
<, 


Se solicitará conlrol OJD 


. 
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Mr. Joystick 
Domark presenta a James Bond en la 
pantalla del Amstrad, en un fascinante y 
comple;o ;uego de aventuras que se carga 
en tres partes, lleno de emoción e interés. 


ProgramActión 2 4 
Continuamos estudiando técnicas de 
animación, incluyendo para ello el color. 
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2B CÓdi 9 0 
Máquina 
Con idea de reposar y meditar sobre lo 
que hemos aprendido, y aumentar el 
arsenal de herramientas útiles para la 
programación en máquina, os presentamos 
un programa ensamblador y otro, más 
pequeño, que completa al Hexer, el 
cargador hexadecimal. Se acabó el 
ensamblar a mano. 
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REVISTA INDEPENDIENTE p. 


LEOJ 
PROGRJ 
PARA Q.._ ._. 
TECLEARLOS 
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Todos los programadores y aficionados a la 
microinformática sabemos lo tedioso y propenso a 
errores que resulta el teclear un listado de un 
programa. Para facilitar tu labor al máximo y que no 
tengas que estar horas sobre el teclado de tu 
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Todos los programas de nuestras cintas se encuentran 
desprotegidos j con el objeto de facilitar su copia en disco 
y la revision de los listados. 
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HOBBY PBESS,S.A. 


Apartado de Correos 


n.O 54.062 (Apartados Altos) 


MADRID 


------- 


ordenador tratando de descifrar incomprensibles 
mensajes de error, AMSTRAD SEMANAL te ofrece 
cada mes los programas publicados de los cuatro 
números correspondientes en una cinta de cassette, 
sólo por 675 ptas. (sin más gastos por envío). 
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Programas incluidos en la cinta número 1 
Título Revista número 
EASYDRAW I 
EGGBLlTZ 2 
CODIGO SECRETO 2 
VENTANAS 2 
BIORRITMOS 3 
MAD ADDER 3 
HEXER 3 
CHARGEN 4 
PROGRAMACION 4 
Programas incluidos en la cinta número 2 
Título Revista número 
GRAFICOS 8 
MUSICA 6 
TRON 6 
ENSAMBLADOR 8 
HEXERL 8 
TOOLKIT 8 
PRIMEROS PASOS 7 
INCOGNITON 7 
MONITOR 5 
ANALlSIS 5.8 
CEDRIC 8 
ANIMACION I 7 
ANIMACION2 8 
SMALEY 7 
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Director Editorial 
José 1. Gómez-Centurión 
Director Ejecutivo 
Viciar Prieto 
Subdirector 
José Moría Díoz 
Redactora Jefe 
Marta Gordo 
Diseño 
José Flores 
ColClboradores 
Francisco Portalo 
Pedro Sudón 
Miguel Sepúlveda 
Francisco Martín 
Jesús Alonso 
Pedro S. Pérez 
Amalia Gómez 
Juan J. Martinez 
Secretaria Redacción 
Carmen Santa maría 
Fotografía 
Carlos Condel 
Javier Mal tínez 
Portada 
Manuel Barco 
lIustradores 
J. Igual, J. Pons, F. lo Frontón, 
J. Septien, Peio. J. J. Mora, 
luigi Pérez 
Edita 
HOBBY PRESS S.A. 


Presidente 
Moría Andrino 
Consejero Delegado 
José l. Gómez-Centurión 


Jefe de Publicidad 
Concho Gutiérrez 
Publicidad Barcelona 
José Galón Cartes 
Tet: (93) 303 1022/31371 62 


Secretaria de Dirección 
Morisa Cagorro 
Suscripclones 
M.o Rosa Ganzólez 
M. ° del Mor Calzada 
Redacción, Administración 
y Publicidad 
la Granja, s/n 
Palígona Industrial de Alcobendas 
Tel.: 65432 11 
Telex: 49 4BO HOPR 


Dto. Circulación 
Carlos Peropadre 

istribución 
Caedis. S. A. Valencia. 245 
Barcelona 


Imprime 
ROTEDIC. S. A. Crto. de Irún. 
Km. 12,450 (MADRID) 
Fotocomposición 
Navocomp. S.A. 
Nicolós Morales, 38-40 
Fotomecánica 
GROF 
Ezequiel Solana. 16 
Depósito Legal: 
M-2B468-19B5 


Derechos exclusivos 
de la revista 
COMPUTING with 
the AMSTRAD 


Rt:pre'ienlante poro Argentina, Chile, 
Uruguay y Paraguay, Cia. 
Americano de Ediciones. S.R.l. Sud 
América 1.532. Tel.: 212464.1209 
BUENOS AIRES (Argentino). 
M. H. AMSTRAD no se hace 
nece'ioriamenfe 50Hdaria de 1m 
opiniones vertidas por sus 
colaboradores en 105 artículos 
firmados. Re:(ervodos todos los 
derechos. 


Se solicilor6 control OJ D 
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Año I · Número 8 . 22 0128 de De/ubre de 7985 
750 ptas. (sobre/asa Canarias, 10 p/as.) 


5 Primera 
plana 
Panorama Internacional: Ericsson lanza 
más compotibles, Bull recupera posiciones 
y Oecville, la ciudad por ordenador, 
asombra a propios y extraños. 


6 Primeros 
pasos 
Estudiamos en este número los comando
 
IF... THEN, la forma más común, aunque 
no la única, de conseguir que el Amstrand 
tome decisiones, y adopte un determinado 
curso de acción en función del 
cumplimiento o no de ciertas condiciones. 
Completamos así lo aprendido estudiando 
WHILE... WENO. 


Serie oro 


I 


Gráficas es un programa que habla por 
sí mismo. Con él podemos representar 
gráficamente casi cualquier información 
numérica de multitud de maneras, 
observando cómo varía una magnitud a 
golpe de vista. 
Su compañero, llamado Cedric, es un 
iuego de inteligencia pensado para 
desarrollar la memoria y retentiva visual 
casi sin darse cuenta. 
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Análisis 


34 


La protección de programas es siempre 
un punto delicado y difícil: aún no se ha 
inventado la protección inviolable. 
Aquí damos una idea de una posible 
forma de hacer más difícil el acceso a 
nuestros programas. Más que el listado en 
sí, importa la idea que se esconde detrás 
de él. 


J : Mr. Joystick 
Oomark presenta a James Bond en la 
pantalla del Amstrad, en un fascinante y 
compleio iuego de aventuras que se carga 
en tres par/es, lleno de emoción e interés. 


ProgramAcción 24 
Continuamos estudiando técnicas de 
animación, incluyendo para ello el color. 
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2' Código 
Máquina 
Con idea de reposar y meditar sobre lo 
que hemos aprendido, y aumentar el 
arsenal de herramientas útiles para la 
programación en máquina, os presentamos 
un programa ensamblador y otro, más 
pequeño, que completa al Hexer, el 
cargador hexadecimal. Se acabó el 
ensamblar a mano. 
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¡NUEVO! 
SIEMPRE LOS PRIMEROS 
EN TENER LO ULTIMO 
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DRAGONTORC 
Cerca de 200 pantallas con miles de 
objetos diferentes y más de cien 
personajes con animación en tres 
dimensiones, hacen que de este juego la 
revista inglesa Crash Micro haya llegado a 
decir «Dragontorc es lo mejor que hemos 
visto en juegos de acción y aventura». 
P.V.P.: 2.300 ptas. 
Precio Socios C. de Soft: 2.070 ptas. 
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P.o de la Castellana, 268, 3.° C. 28046-MADRID. 
Te!.: (91) 733 2500 


I L/VE OUT YOUR DREAMS 
ON THE 
,\-\ERN BEL. 
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SOUTHERN BELLE 
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Siente la emoción de conducir una 
locomotora de vapor, através de un 
maravilloso recorrido desde Londres a 
Brigthon, manejando la caldera. el silbato, 
atravesando túneles, etc. Estamos ante 
uno de los juegos más brillantes y 
originales aparecidos para ordenador. 
P.V.P.: 2.300 ptas. 
Precio Soci 0!j C. de,. 50ft: 2.070 ptas. 
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RAID OVER MOSCOW 
Defiende a.USA y Canadá del ataque- 
nuclear que ha lanzado Rusia contra 
ellos. Con tu escuadrilla habrás de hacer 
un viaje lleno de peligros hasta llegar al 
mismisimo Kremtin y destruir las bases de 
lanzamiento soviéticas. Gráficos y acción 
sensacionales. 
P.V.P.: 2.300 plas. 
Precio Socios C. de 50ft: 2.070 ptas. 
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/'J .] :]rV I 11 0 r;- (F ¡Además de poder adquirir tus pro- 
. gramas al mejor precio. recibirá
 info mación de forma periódica y gratuita. del mejor software que aoa-. 
rezca en el mercado. ... '.. 
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. nos por correo tu nombre, dirección y modelo de ordenador, o bien, pide por teléfpno o por 'orreo tu pri- . 
mer programa. ¡y entrará.s a f9rmq,r pa
e del CIRCULO DE 80FT de forma ilJmediata!. 
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o si. quiero ser SOCIO desde hoy mismo del CIRCULO DE SOFT y recibir periódicamente información de novedades de software. así como beneficiarme desde hoy mismo de los pre- 
cios reducidos reservados a los SOCIOS y de sus Ofertas Especiales. El ser SOCIO no fffi obliga a cofT11ra alguna 
Si prefieres formalizar tu compra por teléfono puedes hacerlo llamando al (91) 733 25 OO. i¡NO SE COBRAN LOS GASTOS OE ENVIO POR CORREO!! 
TITULO P.V.P. ORDENADOR 


D Conlrarreembolso 


D Tarjeta VISA n.O 


D GirO Postal D Talón adjunlo a Mlcroamigo. S A. 
Apellidos 


Nombre 
Domicilio 
Localidad 


Fecha caducidad 


Edad 


Teléfono 


C.P. 


Provincia 



DECVILLE, 
CIUDAD SIN LEY 


.DEC (Digital Equipment Corpora- 
tian) presentó en el sótano del pala- 
cio de festivales de Cannes una ciu- 
dad, llamada ingeniosamente Decvi- 
lIe, la cual, aparte de estar en un só- 
tano, presenta la característica de es- 
tar completamente informatizada, 
hasta los detalles más nimios. 
Para las aficionados a la informá- 
tica yola comodidad, un increíble 
sueño hecho realidad, y una mues- 
tra de cómo pueden ser nuestras ciu- 
dades en un futura, nos tememos que 
lejano, debido más que nada, al cos- 
to del evento: unos 20 millones de 
dólares en equipos informáticos. Pe- 
ro es un primer paso, que muestra 
una sugestiva aplicación práctica de 
los ordenadores. 



rimera 
plana 


SI NO PUEDES 
VENCER LOS. .. 


Bajo el paradójico lema «socio de 
mis competidores» , la firma sueca 
Ericsson, ferviente partidaria de la 
compatibilidad IBM, aumenta su es- 
calada ofreciendo una gama de ter- 
minales compatibles con Digital 
Equipment, Sperry Univac y Mary 
Poppins. También estará presente un 
micra portátil fabricado por el gigan- 
te japonés Matushita. 
Si I BM los vende, ¿por qué yo no? 
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TORA, TORA, TORA 


as fábricas japonesas 
creadoras del sistema MSX no se re- 
signan al relat'vo fracaso que su 
standard está teniendo hasta ahora. 
En efecto, las cifras de ventas no co- 
rresponden a lo esperado ni mucho 
menos. 
Ha naci.o el MSX2, un sistema 
compatible con el MSX «a secas», for- 
mado por máquinas de 64 Kbytes de 
RAM y nada menos, asómbrese, que 
128 Kbytes de memoria para gráfi- 
cos, la cual implica una resolución en 


pantalla comparable a la fotográfi- 
ca. Los responsables del MSX2 pare- 
cen pensar que el futuro del merca- 
do de los «home computers» descan- 
sa en los juegos, o al menos en aque- 
llos programas que posean gráficos 
por todo lo alto. 
No cabe duda de que juegos o lo 
que sea que use 128 K de gráficos se- 
rá de armas tomar¡ esperemos que 
las casas comerciales de software 
respondan pronto a la inciativa nipo- 
na. 


, 


@ Los 
PROBLEMAS DE 
APPLE (Y 11) 


amo comentábomo, hoce 
poco, Apple está que trina ante la di- 
misión de Jobs, exfundador de la 
compañía, y «huido» con los mejores 
cerebros de la misma. 
En el tribunal de Santa Clara (Ca- 
lifornia), Apple Computer ha presen- 
tado una demanda judicial contra el 
señor Jobs, acusándo/e de «haber 
tramado en secreto» su escapada 
para fundar una empresa rival de 
Apple, y, además, de haber «sedu. 
cido)) a colaboradores muy impor- 
tantes para que le acompañaran 
con idea de aprovecharse de sus co
 
nacimientos en los proyectos más se- 
cretos de Apple. 
. 
onsiderándose injustamente per- 
ludlcada, la compañía americana 
exige como indemnización la baga- 
tela de 5 millones de dólares. A la es- 
pera de las declaraciones de Jobs, el 
«acusado)), la prensa del corazón 
del sector informático americano se 
encontraba sobre ascuas. 
El impasible Jobs ha dicho que se 
siente «sorprendido)) de la querella 
de Apple. Algo es algo. 
To be continued. 


BULL: EL TORO 


El primer fabricante europeo de 
informática (¡unto con Olive , tt¡) re- 
gistrará este año un considerable 
aumento de beneficios después de 
perder hasta la camisa en los últi- 
mos tres años. 
Jacques Stern, su presidente, 
aun fue más lejos augurando un 
ejercicio (contable, claro) «muy 
positivo)) para el 86. 
Se espera que el volumen de 
negocios alcance este año la res- 
petable cifra de 16.000 millones 
de francos. 
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PROGRAMAS INTELIGENTES 
CON WHILE", WEND 


Esta vez no hay introducciones. Vamos a examinar, sin más, el 
programa número 1. 


s idéntico al programa XII pu- 
blicado la semana pasada, saca en 
pantalla todos los números a partir 
del 1 hacia arriba. 
Es un programa bastante intere- 
sante, y una buena noticia es que, 
una vez tecleado, algunos de los 
próximos programas se basarán en 
él. 
Quizá lo más chocante del progra- 
ma 1 es el bucle WHILE...WEND. 
Como ve, WHILE y WEND actúan 
como «paréntesis» de una sección (o 
cuerpo) de instrucciones, que se de- 
sea repetir. En este caso las líneas 
que se están repitiendo son la 70 y 
80. 
Por supuesto, no puede haber un 
WH I LE donde no se conoce, el mi- 
cra necesita saber qué es WHILE. 
Así que asociamos a WHILE lo que 
conocemos como una condición, 
mientras «que»... 
Aquí la condición es sencilla: 
1. o Como ve, da al micra el código 
numérico para «verdadero». Por 
tanto la condición es WH I LE verda- 
dero, y después nuestro micra lo 
comprenderá todo, hasta que se di- 
ga otra cosa, todo se reduce siem- 
pre a WHILE. 
En otras palabras, se repite el bu- 
cle hasta que lo interrumpimos pul- 
sando la tecla de Escape dos veces. 
Otra característica interesante del 
programa es la línea 70. 
70 número = número + 1 
El efecto de esta línea es aumen- 
tar el valor de la variable «número» 
en la unidad. 
Recuerde que primero se ejecuta 
/0 que está a la derecha del signo 
igual, así que la línea 70 se lee: : 
«Coge el valor de lo etiquetado 'nú- 
mero', súmale 1, coloca este nuevo 
valor en la etiqueta 'número'.» 
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El signo igual no es en realidad el 
signo de igualdad que conocemos, 
¿cómo puede ser un número igual a 
sí mismo más uno? Es una asignación 
que puede leerse como «convertir- 
se». 
Entonces, la línea 70 se lee: «'nú- 
mero' se convierte en lo etiquetado 
/, " 
como numero mas uno.» 
De este modo la línea 70 aumenta 
el valor de la variable «número» en 
uno y la 80 saca en pantalla este 
nuevo valor. Mientras estas dos lí- 
neas están en el interior del bucle in- 
definido WH I LE... WEN D, el proce- 
so se mantiene repitiéndose a sí mis- 
mo. 
Una última cosa, aunque demos a 
la variable «número» el valor O en la 
línea 50, el primer número que sale 
en pantalla es el 1. ¿Saben por qué? 
Realmente la línea 50 es superflua 
puesto que el Amstrad supone que 
una variable numérica es cero a me- 
nos que se le haya dicho otra cosa. 
El mes pasado le desafiamos a 
cambiar la línea 70 para que los nú- 
meros que salen aumenten en dos. 
El programa 1I hace este truco: 


Una de prácticas 
¿A que es fácil? Ahora le invitamos 
a que vea si es capaz de hacerla in- 
crementando en intervalos de 4 y 10. 
Aunque no tenga soltura todavía, 
creemos que será capaz ahora, uti- 
lizando el programa 1II como guía. 
Otra propuesta que le hacemos, es 
empezar sacando en pantalla desde 
el 1000 para ir disminuyendo en in- 
tervalos de uno. Aquí, en vez de su- 
mar uno, en la línea 70 tendrá que 
restarlo. El programa 1I1 demuestra 
cómo se hace: 
Observe que damos a la variable 
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«número» el valor 1001 en la línea 
50, porque queremos que el primer 
número en pantalla sea 1000. Antes 
que se imprima la variable «número» 
(Jínea 80) este valor decrece en uno 
(línea 70). Comenzando desde 1001 
se nos permite esta sustracción. 
Además nos encontramos con el 
primero de un interesante grupo, las 
desigualdades. Llamadas en el mun. 
do de los ordenadores «operadores 
relaciona les», son interesantes por- 
que nos indican cuál de los números 
es mayor o menor, si son iguales o 
distintos y así sucesivamente. 
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Probablemente ya los encontró en 
el colegio. Por ejemplo: 
X + Y 
significa que el valor de X es mayor 
que el valor de Y. 
Del mismo modo: 
X < Y 
significa que el valor de X es menor 
que el valor de Y. 
Desde luego, se tiende a olvidar en 
qué sentido deben ir los signos de las 
desigualdades, +. La manera de re- 
cordarlo es pensar que el signo tie- 


ne dos lados: el lado abierto o gran- 
de y el afilado o pequeño. El núme- 
ro «grande» va próximo al lado 
grande, y el número «pequeño» al 
lado pequeño. 
Lo que quiere decir que: 
7 + 4, 
que se lee siete es mayor que cuatro 
es cierto, mientras que: 
250 < 150, 
que se lee doscientos cincuenta es 
menor que ciento cincuenta, ¡es cla- 
ramente mentira! 
El programa IV utiliza una desil- 
gualdad unida a la condición WHI- 
LE. La línea 60 se lee: 
60 WHILE número < 23 
Quiere decir que mantenemos la 
repetición del bucle limitado por 
WHILE...WEND mientras que el va- 
lor de la variable «número» es me- 
nor que 23. 
Tan pronto como la línea 60 se en- 
cuentre un valor de la variable «nú- 
mero» que no sea más pequeño que 
23, interrumpe el bucle- dice que se 
retira. 
Es bastante sencillo, pero algo que 
podría preocuparle es que el propio 
número 23 se imprima. Podría pen- 
sarse que puesto que el bucle se es- 
tá repitiendo: «mientras la variable 
'numero' sea menor que 23» el pro- 
pio 23 nunca se imprimirá. 
De cualquier manera, recuerde el 
efecto de la línea 70 que suma 1 a 
la variable «número» antes de impri- 
mirlo. Después que el programa ha 
alcanzado e impreso el valor 23, el 
valor de la variable <<número» es 22, 
así que impreso permite repetir el bu- 
cle, ya que 22 es menor que 23. 
La línea 70 ha aumentado el va- 
lor de la variable <<número» en 1 ob- 
teniendo 23 y la línea 80 lo saca en 
pantalla. Por supuesto, ya que la va- 
riable «número» es ahora 23, el bu- 
cle no se continuará. 
Intente correr el programa con la 
línea 60 cambiando: 
60 WHILE número + 23 
No parece que ocurra nada, ¿ver- 
dad? Es porque mientras la línea 50 
coloque cero en la variable «núme- 
ro», la condición del bucle (en la lí- 
nea 60) no se cumple. 


Salir de un bucle 


Por lo tanto el bucle no se hace, lo 
hemos saltado u omitido. Y ahora ya 
que ahí no hay más programa sen- 
cillamente se termina. 


Primeros 
pasos 


La misma línea de razonamiento 
puede explicar los resultados que se 
obtienen de cambiar la línea 60 a: 
60 WH I LE número < O 
De la misma forma que hay desi- 
gualdades también hay igualdades, 
el signo =. Podemos combinarlas en 
expresiones tales como: 
número < = 23 
Que se lee: «el valor de la varia. 
ble 'número' es menor o igual que 
23.» 
De igual manera: 
número + = 23 
se lee: «el valor de la variable 'nú- 
mero' es mayor o igual que 23.» 
Recuerde que, la semana pasada, 
habíamos encontrado una combina- 
ción de desigualdades: el par < + , 
siendo su significado: «distinto ao» 
Para ver cómo trabaja en la prác- 
tica una combinación semejante 
echemos una mirada al programa V. 
En la línea 60 se lee: 
60 WH I LE número < = 23 
creemos que no tendrá ningún pro- 
blema de interpretación. 
Cuando corramos el programa 
descubriremos que en este caso 24 
es el último número que aparece en 
pantalla. 
Veamos este caso, a diferencia de 
programa IV, puede entrar en el bu- 
cle con una variable <<número» igual 
a 23. La línea 70 le incrementa uno, 
y la línea 80 saca en pantalla el re- 
sultado 24. 
Cuando se intenta hacer el bucle 
otra vez, como la variable «número» 
no es menor o igual que 23, se alta 
el bucle. 
Como último paso, intentaremos 
utilizar mayor que para la condición 
del bucle WHILE... WEND -en una 
modificación del programa IV- no 
hemos conseguido hacer nada de- 
masiado espectacular. El programa 
VI demuestra ahora cómo puede ser- 
vir en este sentido. 
Antes de correrlo intente encontrar 
qué número será el último que sal- 
drá en pantalla. 
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Bien, desde la línea 60 sabemos 
que el bucle sólo se realizará si el va- 
lor de la variable «número» de en- 
trada es mayor que 30. (A propósi- 
tO I la línea 50 asegura que empeza- 
mos con un número mayor que 30 1 
y la línea 70 nos dice que descienden 
de uno en uno.) 
El último valor posible que «acti. 
vará» el bucle será 31. No puede 
ser 30 o menor, ya que entonces la 
variable «número» no sería mayor 
que 30. 
Por tanto, la última vez que se en- 
tra en el bucle WHILE... WEND, la 
variable «número» es 31. La línea 
70 le disminuye en uno y la línea 80 
escribe el valor resultante, 30. 
Si el micro intenta hacer el bucle 
otra vez no lo conseguirá, ya que 30 
no es mayor que 30. 


La sentencia 
IF... THEN 


El bucle WHILE... WEND no son 
las únicas palabras Basic que pueden 
usarse con condiciones. Esta senten- 
cia IF... THEN que también es váli- 
da. 
El uso de I F... TH EN no puede ser 
más fácil ya que feflejan muy bien el 
lenguaje inglés. 
Por ejemplo, hay una frase típica- 
mente paternal: 
IF no te vas a la cama 
THEN me enfadaré 
o la típicamente matrimonial: 
IF lo dices otra vez 
THEN estallaré 
La idea es que de una condición 
después de IF, y que después de 
TH EN especifique las calamitosas 
consecuencias si se ha cumplido es- 
ta condición. 
Por su puesto que si la condición 
no se cumple, entonces ya no se rea- 
liza lo que está detrás de TH EN. 
(¿Sabe si la última sentencia es una 
instrucción IF... THEN?) 
A menudo las condiciones que es- 
pecificamos en nuestros programas 
suponen igualdades o desigualda- 
des. Por ejemplo: 
IF número + 1000 THEN PRINT 
«Es un número grande"» 
IF número < + supuesto THEN 
PRINT 
«Su suposición es equivocada"» 
El programa VII utiliza estas ideas 
para decirnos si el número es mayor 
que, igual a o menor que 10. Meta- 
S MICROH088Y AMSTRAD 


mos el número en la línea 50, enton- 
ces las líneas 60, 70 y 80 escriben el 
resultado de la comparación para 
cada uno de los tres casos o condi- 
Ciones. 
Si la variable «número» cumple 
una de las condiciones (es decir, es 
mayor que l igual a o menor que 7 O), 
se imprime el mensaje apropiado. 
Observe que es imposible para 
cualquier valor de la variable «nú. 
mero» provocar más de un mensa- 
le. 
El programa VIII desarrolla las 
ideas que estamos discutiendo. Las lí- 
neas 70 a 100 hacen el trabajo del 
programa VII comparando el núme- 
roconl0. 


Ambas condiciones 
pueden mezclarse 


La novedad es que en este caso la 
comparación está envuelta por un 
bucle WHILE... WEND. Vamos ha 
hacer nuestras comparaciones en 
tres tiempos. (Conozcamos el cielo.) 
Así que vamos a introducir la varia- 
ble apropiadamente llamada «con. 
tadorl) que se mantendrá al tanto de 
cuantas veces hacemos WH I LE... 
WEND. 
Al principio la variable «contador» 
está marcando cero (línea 50), cada 
vez que se ejecute el bucle será in- 
crementada en uno (línea 720). Así 
que, la primera vez que se ejecute el 
bucle, la variable «contadorl) es ce- 
ro, la segunda vez es uno, la terce- 
ra es dos. 
Ya que necesitamos hacer el bucle 
sólo tres veces, sería mejor asegurar- 
nos que la variable «contador» nun- 
ca alcanza el valor 3, de otra mane- 
ra tendría que hacer el bucle una 
cuarta vez. 
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Para lo cual agregaremos la con. 
dición a nuestro WHILE. 
60 WHILE contador < 3 
Puede que parezca un poco extra- 
ño que valga menos que 3, pero re- 
cuerde, empezó contando cero. 
Si cree que esto está claro, puede 
empezar contando desde uno, cam- 
biando la línea 50 a: 
50 contador== 1 
En este caso necesita cambiar la 
condición del bucle para alterar lo lí- 
nea 60 a: 
60 WHILE contador < ==3 
A ,propósito, ¿sabe sí: 
60 WHILE contador < + 4 


y 


60 WHILE contador < 4 
son equivalentes a esta nueva ver- 
sión de la línea 60? Personalmente, 
nos parece que nuestra primera al- 
teración era clara, ya que necesita 
el valor 3. 
A propósito, la línea 110 es, pre- 
cisamente, un espacio en blanco en- 
tre los grupos de mensajes del bucle, 
y la línea 140 nos hace saber que el 
programa ha terminado. 
No olvide que puede utilizar la 
combinación < < en el sentido de 
<eno es igual que» con cadenas y ca- 
racteres así como con variables nu- 
méricas. El programa IX lo demues- 
tra, mejor dicho, es un ejemplo ton- 
to. 
Es muy similar a un programo que 
tuvimos el mes pasado, de modo que 
no debe causarle ningún problema. 
Ahora veamos el programa X. Lo 
crea o no, es un equivalente exacto 
al programa IX. En lugar de utilizar 
WHILE... WEND, vamos a usar lo 
combinación IF... THEN y GOTOs. 
Hasta el momento, hemos utiliza- 
do solamente PR I NT después de 
TH EN. Sin embargo, se puede utili- 
zar cualquier palabra clave Basic, in- 
cluyendo GOTO. 
GOTO, con el que ya nos hemos 
encontrado, hace que el micro salte 
al número de línea especificado y si- 
gue operando allí. 
La línea 60 da entrada al valor de 
una variable «respuestas$» en res- 
puesta a la pregunta: «¿lo repetire" 
mos?» 
La línea 70 deja una línea en blan- 
co como espacio, así saltamos inme- 
diatamente a la línea 50 vía el GO- 
TO de la línea 80. 
Entonces la línea 50 analiza nues- 
tra respuesta a la pregunta. Si res- 
pondemos de otra manera que 



«no», se continuará con el (más bien 
insignificante) programa, si respon- 
demos «no» se deja el programa. 
La línea 50 utiliza GOTO acompa- 
ñando el final de una sentencia I F... 
THEN. 
En efecto, dice, IF el valor de 
«respuestas$» es (<nO» THEN GOTO 
a la línea 90. 
Ya que hemos dado entrada a un 
«no», el efecto de la línea 50 nos ha- 
ría un GOTO a la línea 90. La línea 
90 contiene la palabra clave BASIC 
END que, como su nombre indica, 
provoca el final de la ejecución del 
programa. 
Por otra parte, cualquier otra res- 
puesta no cumple la condición, por 
lo tanto no haremos lo que viene des- 
pués de THEN, sino que sencillamen- 
te se continuará el programa. 
Es asombroso que el micro encuen- 
tre lo primero la línea 50. Al fin yal 
cabo, no hemos dado entrada a nin- 
gún valor para la variable 
«respuestas$». 
Bueno, el Amstrad lo supone, has- 
ta que le demos a la variable un va- 
lor, ésta no tiene ninguno cualquie- 
ra que sea la comparación. Verda- 
deramente no puede tener el valor 
«no», así que el programa no hace 
lo que viene después de TH EN, pe- 
ro continúa normalmente. 
Creemos que estará de acuerdo en 
que es una suerte tremenda el poder 
llevar a cabo este trabajo con un ma- 
nejo tan simple como el bucle WH 1- 
LE... WEND en el programa IX, yes- 
te último está lejos de ser fácil de 
comprender. 
Los GOTOs, con su tendencia a 
saltar sobre los programas, que pa- 
recen liebres de marzo, son una pri- 
mera causa de oscuridad y esconden 
errores en los programas. 
Los buenos programadores rara- 
mente los utilizan -casi nunCQ- 
mientras haya alternativas claras y 
sencillas. Esperamos que usted tam- 
bién los evite. 
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40 MODE 1 
50 n UmE' r. 0=0 
60 WHILE -1 
70 numE'ro=numE'ro+l 
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90 WEND 
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40 MODE 1 
50 numero-O 
60 WHILE -1 
70 numero-numero+2 
S9 PRINT 'uE) numero es ahora I 
nume 
rO 
90 WEND 
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40 MODE 1 
50 numero=1001 
60 WHJLE -1 
7a numero=numE'ro-1 
e0 PRINT "El numero es ahora n;nume 
ro 
90 WEND 


10 REM 
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. 20 REM Programa V 
30 REM 
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40 MODE 1 
50 numero=0 
60 WHILE NUMERO(=23 
70 num
ro numero+l 
88 PRINT 'El numE'ro E'S ahora' ;numE' 


ro 


90 WEND 
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90 WEND 
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38 REM *
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40 MODE 1 
59 INPUT 'Tec 1 ee un numero"; rrumer'o 
6e IF numero)10 THEN PRINT"El num.r 
o es mayor que 18 11 
7a IF numero=10 THEN PRINT"EI num.r 
o ..s igual a lO" 
8a IF numE'roC10 THEN PRINT"EI numer 
o E'S mE'nor qu.. le' 
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40 MODE 1 
50 contado'r-O 
60 WHILE contadorC3 
7e INPUT'ITec1el? un numero' ;nurner.o 
80 IF numE'ro)10 THEN PRINT"El numer 
o es mayor Que le
 
9a IF numE'ro=10 THEN PRINT"El numer 
O e s i gu al a 10' 
100 IF numero<10 THEN PRINT'El numE' 
ro es menor que le" 
11 a P'RINT 
120 contador=contador+l 
130 WEND 
140'PRINT .SE' acabo" 
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L0 REt1 Pr ogr ama IX 
30 PEr1 
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40 t10DE 1 
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60 INPUT'M
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IT 
8(1 I.JEt
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10 REM 
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20 REr-1 Pr'ogr ama X 
je REM ***************
************ 


*
 


40 t1DOE 1 
5e IF respu..sta

.no" THEN GOTa 90 
68 INPUT"Me lo rE'pitE'";respuesta$ 


70 PRINT 
80 ¡30TO 5a 
<>e END 
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INTRODUCCION 
AL PROGRAMA 
uGRAFICAS u 


No siempre resulta fácil escribir un prólogo, así c:¡ue voy, a 
recurrir a un tópico muy conocido para «coger el htlo»" Ahl va: 
una imagen vale más que mil palabras. 


C



rE Explicación General 


o, el Serie Oro de este 
número no va de fotografía, sino que 
se trata de un programa escrito ín- 
tegramente en Basic pensa.do para 
representar gráficamente mforma- 
ción, en forma de diagramas de ba- 
rras, tridimensionales, de tarta (que 
el autor llama cilindros), etc. 
Creo que su utilidad resulta ciar? 
para cualquier persona que nec
sl- 
te ver rápidamente cómo evolucIo- 
na una serie de datos con el tiempo, 
acerca de conceptos tales como nó- 
minas, ingresos, gastos, en fin, cual- 
quier partida qu.e un? .n;aneie :
 su 
negocio. En mi opmlon,.. graflcas 
combina perfectamente utilidad con 
estética en la presentanción de los 
datos en pantalla¡ tanto el que 
ólo 
le interese usarlo como herramien- 
tas como el programador deseoso 
de investigar acerca de los gráficos, 
encontrarán en el programa una 
gran ayuda. 
Pero basta ya de prólogos. Cedo 
la palabra al padre de la criatura: 
Francisco Blázquez. 


111. 
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Gráficas I es un programa escrito 
íntegramente en Basic cuya utilidad 
es la representación gráfica de cual- 
quier tipo de tablas de v
d?res. 
Incluye varias clases dlstmtas de 
diagrama, desde el simple de b?rras 
de dos dimensiones al compleja de 
dos líneas en contraste. 
Comienza el programa con dos 
pantallas de instrucciones en las cua- 
les se expone, de un modo reducido, 
todo lo que a continuación se va a 
explicar. . 
Seguidamente se accede al. menu 
principal presionando cualquier te- 
cia. Este consta de seis opciones dis- 
tintas de gráficas más la posibilida? 
de otra doble opción en las tres pri- 
meras. Son las siguientes: 
1" Barras en dos dimensiones (só- 
lo valores positivos). % 
2. Barras en dos dimensiones (só- 
lo valores negativos). % 
3. Barras en dos dimensiones 
(combinación valores pos. y neg.) % 
4" Barras en dos dimensiones (pa- 
ra valores positivos). 
5. Diagramas de cilindros (4 blo- 
ques como máximo). 
6" Gráficas de líneas. 
7. Instrucciones. 
Nota: Las opciones con el símbolo 
«%» constan a su vez de la opción Pi- 
cos como variante de las barras. 


1. Barras 2D (valores 
positivos) 


Tras haber escogido esta opción y 
al igual que en la dos y la tres", apa- 
recerá en pantalla una suceslon de 
preguntas las cuales te irán pidien- 
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do distintos valores y datos que de- 
berás ir introduciendo. Después del 
concepto general, te pedirá el máxi- 
mo valor, del cual dependerá que 
aparezca o no la media/mes y el to- 
tal de los valores introducidos (apa- 
recerá siempre que sea menor de 
7007). Habiendo respondido a esta 
pregunta, el programa pasará a pe- 
dirte los valores de cada barra en 
concepto de meses. Esto se debe, a 
que las opciones 1,2 Y 3 están dise- 
ñadas para tablas anuales. Es obvio 
indicar que a pesar de esta predis- 
posición del programa, puedes usar 
esta opción sin tener en cuenta ni los 
meses ni la media si aparece. 
y después de la entrada de datos, 
se nos plantea otra opción: ¿Ba- 
rras (b) o Picos? De este modo, y 
en las tres primeras opciones, pode- 
mos variar las gráficas consiguiendo 
que aparezcan cuñas en vez de ba- 
rras. La elección depende ya del gus- 
to de cada uno. 
Una vez obtenida la gráfica pode- 
mos borrarla de pantalla pulsando 
cualquier tecla, con lo que volvere- 
mos al menú principal. 


2. Barras 2D (valores 
negativos) 


I 


Esta opción es muy similar a la an- 
terior. El interrogatorio para la en- 
trada de datos es el mismo. Cuando 
te pida el máximo valor, has de in- 
troducirlo en valor absoluto, o sea 
prescindiendo del signo aunque sea 
negativo. Del mismo modo, el resto 
de las entradas deberás efectuarlas 
sin tener en cuenta el signo. También 
se te presentará la opción barras/pi- 
cos. 
Ahora el color del fondo será el ro- 
jo en vez del negro. La escala de re- 
ferencia llevará el signo «-» delan- 
te de cada cifra. 



 
! 


3. Barras 2D 
(combinación de 
valores positivos y 
negativos) 


Aparecerá el mismo interrgatorio 
que en las opciones 1 y 2. El máxi- 
mo valor debes introducirlo en for- 
ma absoluta, pero no así los demás 
valores, los cuales habrán de llevar 
el signo (pos. o neg.) según corres- 
ponda. La pantalla está dividida en 
dos partes iguales madiante una lí- 
nea horizontal, que dentro del eje de 
coordenadas, marca el valor O en la 
escala comparativa. 


S erie Oro 


De esta línea y hacia arriba, sal- 
drán los valores positivos en forma 
de barra o pico (según se haya es- 
cogido), y hacia abajo, los negati- 
vos. El fondo es de color azul y la 
gráfica está hecha a una escala me- 
nor en tamaño. 
La media/mes y el total dependen 
del máximo valor, al igual que en an- 
teriores opciones. 


4. Barras en tres di- 
mensiones (sólo valo- 
res pasito vos) 


Esta opción introduce una varian- 
te realmente práctica: el número de 
barras es opcional, pudiendo elegir 
de 2 a 15 barras. Esto posibilita la re- 
presentación de tablas que no ten- 
gan 12 separaciones o conceptos, 
completando de este modo, a las op- 
ciones 1,2 y 3. El grosor de las ba- 
rras depende de su número, a ma- 
yor cantidad de barras, más finas 
son, y viceversa. 
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Las barras se nos muestran en tres 
colores y sobre un eje de coordena- 
das tridimensional. A la derecha, en 
color blanco, aparece una escala 
comparativa con el máximo valor co- 
mo tope. Bajo ella, saldrá el concep- 
to general de la tabla representada. 
Tanto en esta opción como en las an- 
teriores, si una barra tiene un valor 
mayor al del máx. val., esta barra se 
saldrá por la parte superior del eje 
de gráficas. 


5. Cilindros 


Es otra de las alternativas que 
cuenta con representación tridimen- 
sional. 
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PRINCIPALES LINEAS 
DEL PROGRAMA 
LlNEAS FUNCION 
60 Comienzo del programo. Dos pantallas de instrucciones. 
260 Menú principal: inicio. 
270 Clear: pone o O todas las variables. Selección y llamada de las 
distintas opciones. 
550 Final del menú. Retorno a la línea 260 si se desea. 
560 Inicio de la opción 4, (barras 3D). Tomo de datos y conversión de los 
1000 valores a proporciones de pantalla según el móximo valor introducido. 
Ejecución tras lo toma de datos. 
3040 Final opción 4 y vuelta 01 menú principal. 
3050 Comienzo de la opción 5 (cilindros): toma de datos. 
3460 C.onversión o escala de los valores y representación de la grófica. 
3910 Final y vuelta al menú principal. 
3920 Inicio de la opción 6 (líneas). Toma de datos y conversión de valores. 
4680 Representación de la gráfica. 
5240 Fin de opción 6. Vuelta al menú. 
5250 Comienzo de las opciones 1, 2 Y 3, (barras 20). Toma de datos, 
5620 conversión de valores y llamadas a las distintos opciones. 
Representación de ejes y pantalla. Llamada a PICOS si se elige esta 
6260 opción. Ejecución de barros si se eligen. 
Fin barras opción 3 y retorno al menú. 
6270 Representación de ejes y pantallas de opciones 1 y 2. Llamados a 
6880 PICOS si se eligen, si no, representación de barras. 
Fin barras opciones 1 y 2. Retorno al menú. 
6890 Ejecución de opción PICOS. 
7070 Retorno a la línea 6250 para regreso 01 menú de la opción 3. 
7080 Regreso a la línea 6870 para retorno al menú de las opciones 1 y 2. 


Como anteriormente ha sucedido 
en el resto de las opciones, comien- 
za con un interrogatorio para la en- 
trada de datos. Esta vez, el progra- 
ma se sale de la tónica marcada por 
los interrogatorios anteriores. 
En primer lugar nos pide el con- 
cepto general, el total, y luego inter- 
cala las preguntas de valores y con- 
ceptos (por bloques). 
Esta opción es utilizada con la fi- 
nalidad de apreciar el valor relativo 
de cualquier dato dentro de un total 
previamente fijado. Resalta el valor 
de cada bloque como formante del 
total. Por ello, aunque te pedirá el 
concepto de los cuatro bloques, no 
pasará así con los valores respecti- 
vos, ya que tras meter el tercer va- 
lor y concepto del cuarto bloque, el 
valor de este último bloque se dedu- 
ce al sumar los tres primeros y res- 
társelo al total que anteriormente has 
introducido. Si te equivocas y la su- 
ma de los bloques resulta mayor que 
el total, el mismo programa te de- 
vuelve al principio de la entrada de 
datos para que rectifiques. Del mis- 
mo modo no admite ningún valor 
que sea superior al total. 
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La representación es bastante 
completa: Sobre un fondo negro y 
con tres colores, se nos presenta una 
doble visión del cilindro. Una visión 
desde arriba, y la otra en perspecti- 
va caballero tridimensional. Cada 
bloque se irá formando simultánea- 
mente en ambas perspectivas, sobre 
dos moldes que aparecen al terminar 
la entrada de datos. Los colores de 
los tres primeros bloques son blanco, 
azul y rojo respectivamente, quedan- 
do el cuarto bloque representado 
por la falta de color. 
A la derecha de la visión aérea, se 
configura una tabla en la cual apa- 
rece el concepto de cada bloque 
asociado a su color en la gráfica, el 
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tanto por ciento que supone del to- 
tal y su valor real. 
No tienes por qué usar forzosa- 
mente esta opción con cuatro blo- 
ques, sino que se puede usar para 
dos y tres bloques, ya que la suma 
de los valores de los primeros blo- 
ques igualará al total y el valor de 
los bloques no usados será O" 


6. Diagramas de líneas 


Esta representación nos muestra la 
evolución de dos líneas a partir de los 
valores que se introduzcan. Su con- 
traste resulta muy claro por lo que 
esta opción es propia de represen- 
taciones de tablas de valores opues- 
tas. 
Al igual que las barras 3D, cuen- 
tas con la posibilidad de elegir el nú- 
mero de valores por línea, aunque 
ahora oscilará entre 3 y 13. 
Admite valores positivos y negati- 
vos por lo que el signo es fundamen- 
tal a la hora de introducir datos. Ex- 
cepto el máximo valor, que deberá 
ser introducido en forma absoluta 
todos los demás habrán de llevar s
 
signo, ya que admite la combinación 
de valores pos. y neg. 
Tras introducir todos los valores, se 
pasa a la representación: sobre un 
eje de coordenadas plano, con va- 
lores por encima y por debajo de O, 
según una escala comparativa de la 
derecha, aparecen dos líneas de dis- 
tinto color (cada color a un concep- 
to). 
Si algún valor de cualquiera de las 
dos líneas fuera superior en forma 
absoluta al máximo valor, la línea se 
saldría del eje de coordenadas y de- 
saparecería, volviendo a verse si el 
siguiente valor de la misma línea no 
sobrepasa al máximo. 
Pulsando una tecla borras y vuel- 
ves al menú principal. 


7. Instrucciones 


Con esta opción reaparecerán en 
pantalla las dos hojas de instruccio- 
nes siempre que lo desees. 



VARIABLES PRINCIPALES 
VARIABLE FUNCION 
SX$ Selección opción. 
C$ Retorna 01 principio de lo toma de datos. 
CG$ Concepto general en barros 3D. 
mV,mva Máximo valor, usado paro establecer lo escala a tamaño de 
lo pantalla mediante uno regla de tres. 
nb Número de barros 3D (opcional): usado también para 
delimitar el reparto de separaciones en los ejes de 
coordenadas. 
h1...h15 Valor o altura de las barras 3D. 
t Total en gráficos de cilindros: se usa poro obtener otros 
c 1 $,c2$,c3$,c4$ datos como el valor relativo de los bloques. 
Conceptos de los bloques de los representaciones de 
cilindros. 
v1,v2,v3,v4 Valores de los bloques de lo opción 5. 
nb$ Concepto general de diagramas de líneas. 
n1$ Concepto línea r. 
n2$ Concepto línea s. 
nv Número de valores por línea: viena o funcionar como el nb 
en los barras 3D. 
r1...r13 Valores línea r. 
s1...s13 Valores línea s. 
e,f,m,a,my,¡ 
i1,ag,s,0,n,d Valores en forma de meses de las barras 20. 
gb$ Opción barros/picos en las barras 20. 
db,j,d,p,a,b,c, 
f,l,kl,k,w,...etc Variables de uso general. 
FORMULAS CLA VE 
FORMULA FUNCION 
ha 1 = ((ha 7 X 230)/mv) Al igual que ha2....ha 15, lo que hace es poner el valor 
infroducido en función del máximo valor y del espacio en lo 
pantalla (n. o de pixe/s). 
step(350/nb) Delimito el número de separaciones o el n.o de barros 
verticales en función del n. o de borras escogido. 
v 1 = (v 7 X 360)/t Traduce el valor introducido o grados en proporción al total 
escogido. (También v2... v4). 
sl =(57 X 799)/mva Al igual que s2...s13 y que rl...r13, su finalidad es 
proporcionar el valor parcial de lo recia en un valor 
proporcional 01 máximo valor y en función al n. o de pixels 
en pantalla destinados o la gráfico. 
e=CINT ((exk7)/mv) Como los anteriores, su función es hollar el valor 
proporcional al máximo valor y 01 espacio para la 
representación de cualquiera de 105 valores introducidos 
como parciales. En las opciones 1 y 2 el valor de k 1 = 330 y 
en la n. o 3 su valor es de 165. 
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10 
***..*****
*.****..**+..**** 
*******1'** 
213 '...*..- GRAFI CAS/Fco J. BLAZQUEZ 
*** 
313 '*** 1985' 
*** 
40 I*
***
*****
************
*
**** 
**** 
60 MOOE I:INK I,I3:INK 2.II:INK 3,6 
:INK e,0:BOROER a 
713 CLS 
813 LOCATE I6,3:PEN 3:PRINT "GRAFICA 
S' 
913 LOCATE 4,S:PEN 1 :PRINT" El p 
rograma sirve para hacer varios tlp 
os de dlagramas.Hay cuatro opciones 
principales y cada una se ajusta 
a una determinada. fina1 ¡dad. ' 
11313 PRINT 
1113 PRINT " SIlo quo; So; pro;to;n 
de es apreciar la participacion do; 
una cifra dentro de un total dado, 
o sea el valor relativo,lo mas conv 
eniente es elegir la opcion de ci I i 
ndros( cuatro conceptos distintos 
como max). I 
120 PRINT 
1313 PRINT' Otra do; las opcione 
s,las barras en dos dimensiones,vl 
en e progr ama.da par'a di aQramas anua 
les,de tal modo que la en_trada de 
datos se hara po
 me
es.11 
1413 LOCATE 9,24:PEN 2:PRINT 'PULSA 
TECLA PARA SEGUIR' 
150 WHILE INKEY$="" :WEND 
160 CLS 
1 70 PEN 1 
1813 LOCATE 16,3:PEN 3:PRINT "GRAFIC 
AS II 
1913 LOCATE I,S:PEN 1 :PRINT' 
en 
tro de esta misma al ternativa se pu 
ede e
coger entre do
 tipos de barr 
as; normales o de < plcos).Ademas h 
ay tres posibilidades de dlagr'ama; 
para valores posi tivos,para negatlv 
os y para combina cian de ambo
.I' 
21313 PRINT - 
2113 PRINT" Una varlacion de est 
as graficas son las barras trldlmen 
slonales,que gracias a la posib. I id 
ad de elegir el numero de barras,pe 
rmi ten su apl icaclon a tablas de 
muy distInta composiclon. 
2213 PRINT 
2313 PRINT' Al Igual que las barr 
as(30),la opcionde lineas Incluye I 
a eleccion del numero de dIvisiones 
.Las representaciones por medio de 
Ilneas faci 1 i tan el contr'asto; de 1 
a evolucion do; dos funciones distin 
_tas,<los gastos e ¡ngre
os,por eje 
mpl o)." 
2413 LOCATE 9,25:PEN 2:PRINT "PULSA 
TECLA PARA SEGUIR" 
2513 WHILE INKEY$-"":WEND 
2613 MODE 1 
2713 CLEAR 
2S0 INK e,a:BORDER 0:11'IK 1,13:ItIK 2 
,11: INK 3.6 
290 LOCATE la,2:PEN 2:PRINT "MENU P 
RICIPAL' 
3130 LOCATE 9,3:PEN 3:PRINT STRING$( 
15, '-") 
310 LOCATE 3,5:PEN 2:PRINT "BARRAS 


320 LOCATE 1,7:PEN 1 :PRINT" 
- Valores posi tivos. 20 
. - Valores negativos. 
. - Valores positivos y neg 
ativo
. 3D' -(Solo valores posit 
¡vos). I 
330 PRINT 
3413 PEN 2:PRINT CILINDROS:' 
3513 PRINT 
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369 PEN I,PRINT ' 
s de conceptosCmax)." 
379 PRINT 
38£1 PEN 2:PRINT' LINEAS:" 
399 PRINT 
499 PEN 1: PRINT" 
en contraste (r y s) .11 
419 LOCATE 8,7:PEN 3:PRINT "1' 
429 LOCATE 8,8:PRINT "2" 
43£1 LOCATE 8,9,PRINT '3" 
449 LOCATE 8,le,PRINT "4" 
459 LOCATE 8,14:PRINT '5" 
460 LOCATE 8,18:PRINT "6" 
479 LOCATE 2,29:PEN 2:INPUT 
olve
 a Inst
ucciones pulsa 
ara elegIr opcion e-1 numero 
"; sx$ 
489 IF s;<$-"I" 
499 IF s:<$-"2" 
5£1£1 IF sxS "3" 
510 IF sv
_ 4" 
529 IF sx$="5' 
539 I F sxS=" ó" 
540 I F 
x$=" 7" 
559 GOTO 260 
569 MODE 1 :'99
99999999 BARRAS 9999 
999999 
579 CLS 
580 INK 9,e:BORDER 0:INK 1 ,13:INK 2 
,2: I NK 3,6: PEN 1: PR I NT : PR I NT 
599 INPUT" 1 NTRODUCE CONCEPTO C m 
ax.7 let
as) "¡cg$ 
60£1 INPUT' INTRODUCE n. DE BARR 
ASC2-15)"¡nb:IF nbC2 OR nb)15 THEN 
GOTa 570 
610 H,IPUT " 


- 4 bloque 


- 2 1 i neas 


11 Par a v 
(7), p 
+ ENTER 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


GOTO 
GOTO 
GOTO 
GOTa 
GOTO 
GOTO 
GOTO 


5259 
5259 
5250 
569 
3059 
3929 
6£1 


I NTRODUCE 
'AX I MO VAL 


OF'" :mv 


620 INPUT INTRODUCE VALOR BARR 
A 1"¡hal:LET ha1=CChal*230)/mv),IF 
hal=0 THEN GOTO 62£1 
630 INPUT' INTRODUCE VALOR BARR 

 2";ha2:LET ha2 CCha2.23B)/mv):IF 
ha2=0 THEN GOTO 639 
6413 IF nb-2 THEN GOTO 989 
650 INPUT" INTRODUCE VALOR B
RR 
A 3" ;
la3:LET ha3 «ha3*239)/mv) :IF 
ha3 9 THEN GOTO 659 '. 
6óB IF nb=3 GOTO 989 
6713 INPUT ' INTRODUCE VALOR BARR 
A 4";ha4:LET ha4=CCha4*23e)/mv):IF 
ha4-9 THEN GOTO 679 
6813 IF nb=4 GOTa 989 
óge INPUT" INTRODUCE VALOR BARR 
A 5"¡ha5:LET ha5-CCha5*23e)/mv) :IF 
ha5=0 THEN GaTO 699 
71313 IF nb-5 GOTO 989 
7113 INPUT" INTRODUCE VALOR 8ARR 
A 6"¡ha6:LET ha6=CChaó.230)/mv):IF 
ha6=e THEN GaTO 7113 
7213 IF nb 6 GOTa 9813 
730 INPUT" INTRODUCE VALOR BARR 
A 7"¡ha1:LET ha7=CCh.7*Z301/mv) :IF 
ha7=0 THEN GOTO 730 
749 IF nb-7 GOTO 9813 
7513 1 NPUT" INTRODUCE VALOR BARR 
A 8"¡ha8,LET ha8-CCha8.2301/mu):IF 
ha8 0 THEN GOTO 7513 
7613 IF nb-8 GOTO 9813 
779 INPUT" INTRODUCE VALOR 8ARR 
A 9";ha 9 :LET ha9=CCha9+23B)/m"':IF 
ha9=0 THEN GOTO 7713 
7813 IF nb=9 GOTO 9BB 
7913 INPUT" INTRODUCE VALOR BARR 
A lB"¡haI0:LET haI9=CChalB.2301/mu) 
:IF hale-0 THEN GOTa 7913 
8139 IF nb-19 GOTO 989 
819 INPUT" INTRODUCE VALOR 8ARR 
A 11"¡hall:LET hall <Chall.230)/m'J) 
:IF hall=9 THEN GOTO 81£1 
829 IF nb=ll GOTO 980 
839 INPUT " INTRODUCE VALOR BARR 
A 12"¡haI2:LET haI2-CChaI2*230)/mv) 
:IF ha12-0 THEN GOTO 83£1 
8413 IF nb=12 GOTa 989 
859 INPUT' II-.jTRODUCE VALOR BARR 
A 13" ¡haI3:LET haI3-<ChaI3*230)/mv) 
:IF ha13=0 THEN GOTa 85£1 
869 IF nb=13 GOTO 980 
879 INPUT' INTRODUCE I,,iALOR BARR 
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A 14" ¡haI4:LET haI4=CChaI4>i230)/mv) 
:IF ha14=9 THEN GOTO 870 
880 IF nb=14 GOTa 9813 
8913 INPUT" INTRODUCE VALOR 8ARR 
A 15"¡haI5:LET ha15=CChaI5.230)/mv) 
:IF ha15=0 THEN GOTO 8913 
9130 IF haCl THEN ha=1 :IF ha2<1 THEN 
ha2-2 
910 IF ha3<1 THEN ha2=1 :IF ha4<1 TH 
EN ha4=1 
9213 IF ha5<1 THEN ha5-1: IF ha6<1 TH 
EN ha6-1 
9313 IF ha7<1 THEN ha7=1 :IF ha8Cl TH 
EN ha8 1 
94£1 IF ha9<1 THE
J ha9=1:IF halB<1 T 
HEN hale=1 
9513 IF hal1<1 THEI-.j hall 1:IF hal2<1 
THEN hal2=1 
9613 IF hal3<I THEI'I ha13-1 :IF r,.14<I 
THEN 
,aI4-1 
9713 IF hal5<1 THEN hal5=1 
980 INPUT' Si quiere- c.mbla
 algo 
pulsa e + enter "¡C$ 
9913 IF c$-"c" THEN GOTO 5713 
101313 CLB 
1£11£1 INK 1,26 
10213 LOCATE 27,22:PRINT cgS 
1939 LOCATE 26,23:PEN 3:PRINT STRIN 
G$CI2,CHR$C2e8) :PEN 1 
1949 FOR db=59 TO 400 STEP C350/nb) 
1950 ORIGIN db,150:DRAW -50,-50,3 
11369 ORIGIN db,15B:DRAW 9,235,2:NEX 
T db 
1970 ORIGIN 59,15B:DRAW 0,235,1 
1989 ORIGIN 50,150:DRAW 360,0,1 
1099 ORIGIN 59,159:DRAW -50,-513,1 
1199 FOR d=57.5 TO 2313 STEP 57.5 
1110 ORIGIN 50,150+d:DPAW 360,0,3 
11213 ORIGHI 50, 15e+d:C'RAL.' -50.-50.3 
:tjEKT d 
1130 IF m'J)!OOe THEN Kl=3:IF m"CleB 
1 THEt4 k 1=4 
1140 IF mu)leeee THEN kl=2 
1159 LOCATE 27,2:PRINT CHR$C2e8)¡mv 
1169 LOCATE 27,5:PRINT CHR
(95)¡Cmu 
/4');<3 
1170 LOCATE 27,9:PRINT "-";Cmv/4).2 
1189 LOCATE 27,12:PRINT CHR$(95)¡mv 
/4 
1199 LOCATE 27,16:PRINT "- O" 
121:30 
....*¥:.t.:.¡.:.¡.*** BARRA 1 !'!-****¥-J,;

* 
*--*** 
121£1 FOR c=1 TO hal 
122£1 ORIGIN 38,140+c:DRAW C359/nb), 
£1,1 
12313 ORIGIt,' 38+C350/rob),14e:DRAvJ 12 
,19,1 
1240 ORIGIN 38+C350/nb),140+c:DRAW 
12,19,3:NEXT e 
1259 aRIGIN 38+(350/nbl ,140+hal :DRA 
W 12,10,1 
1260 ORIGIN 38,14(1+hal:DRAW 12,1£1,1 


127£1 ORIGIN 38+(359/nb),149:DRAW 0, 
hal ,2 
1280 ORIGIN 38,149:DRAW 0,hal,2 
12913 FOR J=0 TO 35e/nb 
130£1 ORIGIN 38+J,140+hal:DRAW 12,19 
,2:NEXT j 
1310 ' *******..* BARRA 2 ....*.*.* 


.*.J¡¡:J:.
 


13213 FOR c-l TO ha2 
1339 LET k-(359/nb) 



ftt;:!r 


Para que IUJ dedo, 
no reoliCen ellrobalo duro, M .'/. A/,IS 
TRAD lo hace par li. Todos los liSIadas que induyan 
este logollpo Je e,cuenlran o lu diSposIción en un caso 
seffe mensual saliÓ/anoslo. 


1340 ORIGIN 38+k,14e+c:DRAW C359/nb 
) , O , 1 
1350 ORIGIN 38+C2*k),140:DRAW 12,10 
,1 
1360 ORIGIN 38+C2.(350/nb»,14e+c:D 
RAW 12,19,3:NEXT e 
1379 ORIGIN 38+C2*C35B/nb»,149+ha2 
: DRAW 1 2 , 1 e , 1 
1380 ORIGIN 38+k,140+ha2:DRAW 12,10 
,1 
1390 ORIGIN 38+C2*C350/nb»,14B:DRA 
W '3,ha2,2 
14£1£1 ORIGIN 38+k,149:DRAW 0,ha2,2 
1419 FOR j=O TO 350/nb 
1420 ORIGIN 39+k+J ,14e+ha2:DRAW 12, 
IO,2:NEXT j 
1430 IF nb-2 THEN GOTO 3020 
1440 
 *****

 3 Barra 

*
. 
1450 FOR c=1 TO ha3 
1460 LET k=2*C350/nb) 
1470 ORIGIN 38+k,140+c:DRAW C350/nb 
) ,0,1 
1480 ORIGIN 38+C2*k),140:DRAW 12,10 
.1 
1490 ORIGIN 38+C3+C350/nb»,14B+c:D 
RAW 12,10,3:NEXT e 
1500 ORIGIN 38+C3.(350/nb»,149+ha3 
: DRAW 1 2 , 1 9 , 1 
15113 ORIGIN 38+k,140+ha3:DRAW 12,113 
,1 
1520 ORIGIN 38+(3.C359/nb»,149:DRA 
I,¡ 9, he>.3, 2 
1530 ORIGIN 38+k,140:DRAW e,ha3,2 
1540 FOR J=O TO 350/nb 
1550 O¡;'IGIN 3'7'+k+j ,149+ha3:DRAW 12, 
10,2:I-.jEXT ,i 
15ó0 IF nb 3 THEN GOTO 3920 
1570 
 
.
.
 4 BARRA ¥:.¡.
¥*. 


1580 FOR ciTO ha4 
1599 LET k 3*C350/nb) 
1609 ORIGIN 38+k,14e+c:DRAW C35e/nb 
) ,9,1 
1619 ORIGIN 38+C3>ik),140:DRAl,J 12,19 
,1 
162£1 ORIGIN 38+C4.C359/nb»,14e+c:[J 
RAW 12,19,3:NEXT e 
1639 ORIGIN 38+C4.C359/nb»,149+ha4 
:DRAW 12,19,1 
1649 ORIGIN 38+K,140+ha4:DRAW 12,10 
,1 
1659 ORIGIN 38+C4.(350/nb» ,140:DRA 
W e,ha4,2 
1669 ORIGIN 38+k,140:DRAW 0,ha4,2 


1679 FOR j=9 TO 35e/nb 
1680 ORIGIN 39+k+j, 140+ha4:DRAW 12, 
19,2:NEXT j 
1690 IF nb=4 THEN GaTO 31320 
1799 ' *.*... 5 ba

a ***.¥ 
171£1 FOR c-I TO ha5 
1729 LET k-4.C350/nb) 
1739 ORIGIN 38+K,140+c:DRAW C350/nb 
) ,9 , 1 
1749 ORIGIN 38+C5*C350/nb»,14e+c:D 
RAW 12,19,3:NEXT e 
1759 ORIGIN 38+C5.C359/nb»,14e+ha5 
: DRAW 1 2 , 1 9 , 1 
1760 ORIGIN 38+K,14B+ha5:DRAW 12,10 
,1 
1770 ORIGIN 38+C5.(359/nb»,149:DRA 
W 9,ha5,2 
1789 ORIGIN 38+k,149:DRAW 0,ha5,2 


1790 FOR j 9 TO 359/nb 
189
 ORIGIN 39+K+j,14e+ha5:DRAW 12, 
19,2:NEXT j 
1819 IF nb 5 THEN GOTO 39213 
1820 ' *.**** 6 BARRA **.**.* 
1839 FOR cITO ha6 
1849 LET k 5*C35e/nb) 
1850 ORIGIN 38+K,14e+c:DRAW C350/nb 
) ,9,1 
1869 ORIGIN 38+C6*C359/nb»,140+cID 
RAW 12,19,3:NEXT e 
1879 ORIGIN 38+C6*C359/nb»,149+h.6 
: DRAW 1 2 , 19 , 1 
1889 ORIGIN 38+k,140+ha6:DRAW 12,19 
,1 



S erie Oro 


1890 ORIGIN 38+(6*(350/nb»,140:DRA 
W 0,ha6,2 
1900 ORIGIN 38+k,140:DRAW 0,ha6,2 
1910 FOR j=0 TO 350/nb 
1920 ORIGIN 39+k+J ,140+ha6:D

W 12, 
lB,2:NEXT j 
1930 IF nb=6 THEN GOTO 3020 
19413 ' *+**++* 7 BARRA +++++ 
1950 FOR c=1 TO ha7 
1960 LET k=6*(35ú/nb) 
1970 ORIGIN 38+k,140+c:DRAW !350/nb 
) ,0,1 
1980 ORIGIN 38+(7*(350/nb»,140+c:D 
RAW 12,10,3 :NEXT c 
1990 ORIGIN 38+(7*(350/nb),140+h.7 
: ORAW 1 2 , 1 13 , 1 
21300 ORIGIN 38+k,140+ha7:DRAW 12,10 
,1 
2010 ORIGIN 38+(7*(350/nb» ,140:DRA 
W 0,ha7,2 
2020 ORIGIN 38+k,140:DRAW 0,ha7,2 
2030 FOR J=O TO 350/nb 
2(140 ORIGIN 39+k+j, 14(Hha7:DRAW 12, 
10,2:NEXT j 
2050 IF nb=7 THEN GOTO 3020 
2060 ' *+++* 8 BARRA ***** 
2070 FOR c-I TO ha8 
2080 LET k=7*(350/nb) 
2090 ORIGIN 38+k,140+c:DRAW (350/nb 
) ,0,1 
2100 ORIGIN 38+(8+(350/nb»,140+c:O 
RAW 12,10,3:NEXT c 
2110 ORIGIN 38+(8+(350/nb»,140+ha8 
:DRAW 12,10,1 
2120 ORIGIN 38+K,140+ha8:DRAW 12,10 
,1 
2130 ORIGIN 38+íS+(350/nb» ,140:DRA 
1,1 e, h,,8, 2 
2140 ORIGIN 38+k,140:DRAW 0,ha8,2 


2150 FOR j-0 TO 350/nb 
2160 ORIGIN 39+k+J,140+ha8:DRAW 12, 
10,2:NEXT j 
2170 IF nb=8 THEN GOTO 3020 
2180 ' ++++** 9 8ARRA +**** 
2190 FOR cITO ha9 
2200 LET K-8*(350/nb) 
2210 ORIGIN 38+k,140+c:DRAW (350/nb 
) ,0,1 
2220 ORIGIN 38+(9+(350/nb»,140+c:D 
RAW 12,10,3:NEXT c 
2230 ORIGIN 38+(9+(350/nb»,140+ha9 
: DRAL
 12, 1 0 , 1 
22413 ORIGIN 38+k,140+ha9:DRAW 12,10 
,1 
2250 ORIGIN 38+(9*(350/nb» ,140:DRA 
W 0,ha9,2 
2260 ORIGIN 38+k,140:DRAW 0,ha9,2 


22713 FOR j=O TO 350/nb 
22813 ORIGIN 39+k+j ,148+ha9:DRAW 12, 
113,2:NEXT j 
22913 IF nb=9 THEN GOTO 31320 
2300 ' +**** 10 barra **** 
23113 FOR cITO ha10 
2320 LET k=9*(350/nb) 
23313 ORIGIN 38+k,140+c:DRAW (35B/nb 
) ,8,1 
2340 ORIGIN 38+(IB"'(35B/nb»,140+c: 
DRAW 12,IB,3:NEXT c 
2358 ORIGIN 38+(IB+(350/nb)i,14B+ha 
1 0 : DRAW 1 2 , 1 e , 1 
23613 ORIGIN 38+k,140+ha1e:DRAW 12,1 
13,1 
2370 ORIGIN 38+(18*(350/nb»,140:DR 
AW 0,hale,2 
2380 ORIGIN 38+K,t40:DRAW O,ha10,2 


23913 FOR j=0 TO 35e/nb 
241313 ORIGIN 39+k+j,140+haIO:ORAW 12 
, 1 e , 2 : NEXT j 
24113 IF nb=10 THEN GOTO 3020 
24213 ' ****** 11 BARRA +**** 
2430 FOR c=1 TO hall 
2440 LET K-le*(350/nb) 
2450 ORIGIN 38+K,140+c:DRAW (350/nb 
) ,0,1 
24613 ORIGIN 38+(11*(350/nbii,14e+c: 


DRAI...I 12,10,3 
2470 ORIGIN 
all :DRA(,.I 12, 
24813 ORIGIN 
0,1 
24913 ORIGIN 
AW 0,ha11 ,::: 
251313 ORIGIN 


NEXT c 
38+(ll*(350/nb»,140+h 
0,1 
8+ k , 1. 4 O + h.l 1 : ('
'AI." 1 2 , 1 


38+\ll+(350.nb'),I
D:DR 


38+k,14(1:0RALoJ O,h
11,2 


25113 FOR j=e TO 350/nb 
2520 ORI GIN 39+k+J, 1 40+hall : ['RAt.J 12 
, 1 O , 2 : NEXT J 
25313 IF nb-11 THEN GOTO 30213 
2540 ' .**
* 12 barr
 


.*
 
25513 FOR c-I TO, hal2 
2560 LET K=11*(350/nb) 
25713 ORIGIN 38+k,140+c:DRAW (350/nb 
) ,0,1 
2580 ORIGIN 38+(12*(350/nb»,140+c: 
DRAW 12,10,3:NEXT c 
2590 ORIGIN 38+(12+(350/nb»,140+ha 
1 2 : DRAI;.) 1 2 , 1 0 , 1 
26013 ORIGIN 38+k,140+haI2:DRAW 12,1 
0,1 
2610 ORIGIN 38+(12+(350/nb»),140:DR 
AW 0,ha12,2 
2620 ORIGIN 38+k,140:DRAW B,haI2,2 


2630 FOR J=0 TO 350/nb 
2640 ORIGIN 39+k+j,140+haI2:DRAW 12 
, 1 0 , 2 : NEXT J 
2650 IF nb=12 THEN GOTO 3020 
2660 ' ***** 13 barra **** 
2670 FOR c-I TO ha13 
2680 LET K=12*(350/nb) 
2690 ORIGIN 38+k,140+c:ORAW (350/nb 
) ,0,1 
27130 ORIGIN 38+<13*(350/nb»,140+c: 
DRAW 12,le,3:NEXT c 
2710 ORIGIN 38+(13*(350/nb»,140+ha 
13:DRAW 12,113,1 
2720 ORIGIN 38+k,140+haI3:DRAW 12,1 
13,1 
2730 ORIGIN 38+(13*(35B/nb» ,14B:DR 
AW e,haI3,2 
2740 ORIGIN 38+K,14B:DRAW B,ha13,2 


2750 FOR j=0 TO 350/nb 
2760 ORIGIN 39+K+J,14e+haI3:DRAW 12 
, 10,2: NEXT j 
27713 IF nb=13 THEN GOTO 3020 
2780 ' **** 14 BARRA "'**** 
27913 FOR c=1 TO hal4 
2800 LET K=13*(350/nb) 
2819 ORIGIN 38+k,140+c:DRAW (35B/nb 
) , 0,1 
2820 ORIGIN 38+(14*(35B/nb»,140+c: 
DRAW 12,10,3:NEXT c 
2830 ORIGIN 38+(14*(350/nb» ,140+ha 
14 : DRAW 1 2 , 1 0 , 1 
2840 ORIGIN 38+K,140+haI4:DRAW 12,1 
13,1 
28513 ORIGIN 38+(!4*(35e/nb» ,14e:DR 
AW B,ha14,2 
2860 ORIGIN 38+k,14B:DRAW 0,haI4,2 


28713 FOR j=0 TO 350/nb 
2880 ORIGIN 39+k+j,140+haI4:DRAW 12 
,IB,2:NEXT j 
2890 IF nb 14 THEN GOTO 3820 
29013 ' ***** 15 BARRA ***** 
2918 FOR c=1 TO hal5 
2920 LET K 14*(350/nb) 
2930 ORIGIN 38+K,140+c:DRAW (350/nb 
) , 0,1 
2940 ORIGIN 38+(15*(350/nb)),14e+c: 
DRAW 12,le,3:NEXT e 
2
'50 ORIGIN 38+(15*'.35e/nb»,14¡jfha 
15: DRAI.I 12, le , 1 
2960 ORIGIN 38+Io.,140+haI5:DRAW 12,1 
0,1 
2970 ORIGIN 38+(15*(35B/nb»,140:DR 
AW 0.haI5,2 
2980 ORIGIN 38+k,140:DRAW 0,ha15,2 


2990 FOP J-O TO 350/nb 
3000 ORIGIN 39+k+j,140+haI5:DRAW 12 
,18,2:r
EXT j 


3010 IF nt,-15 THEN GOTO 31320 
3820 LOCATE 10,24:PEN 2:PRINT "PULS 
A TECLA PARA SEGUIR" 
3038 '.IHILE INKEY$="":WEND 
3(ql
 GOTO 260 
3850 ' *g*9*g.t*
*
*r.QUESOS *9*
*9* 
9*
.:v.
*i"1 
30.:.0 
3870 
31380 
309(1 
cg'$ 
3100 
3110 
3120 
3130 
:cl$ 
314(1 
3150 
3160 
31713 
3180 
¡c2$ 
3190 
3200 
3210 


IIOOE 1: PEN 1 
PR It,T 
INPUT 'Dame concepto general"; 


PRINT 
1t.IPUT 
PRINT 
INPUT 


u Intr'oduce tata1"; t 


, Dameo 


concepto bloque l' 


PRINT 
INPUT "Dame ualor bloque I'¡ul 
PRINT 
IF u1(0 OR ul>t THEN GOTO 3150 
INPUT 'Oame concepto bloque 2 


PRINT 
LET ul=(u1+360)/t 
INPUT 'Oame valor bloque 2';u2 


3220 PRINT 
3230 IF v2<0 OR v2>t THEN GOTO 32113 
3240 INPUT 'Oame concepto bloque 3' 
;c3$ 
32513 PRINT 
3260 LET v2=(v2*36B)/t 
3270 INPUT 'Dame ualor. bloque 3' ¡u3 
32813 PRINT 
3290 IF v3<O OR v3>t THEN GOTO 3270 
33130 LET v3 (u3*360)/t 
3310 INPUT 'Dame concepto bloque 4' 
¡ c4$ 
3320 PRINT 
3330 PRINT 
3340 PRINT ' Se asume que el ualor 
del cuar.to bloque es el resto hasta 
el total." 
3350 PRINT 
3360 INPUT 'Si guieres cambiar algo 
pulsa (c>+ENTER";c$ 
3370 CLS 
33813 PRINT 
3390 IF c$="c. THEN GOTO 3070 
34013 PRINT 
34113 IF vl+u2+v3>360 THEN PRINT 
Has sobr'epasado el total.. .Rectiflc 
a pul«ar.do cualquier tecla.' 
3420 PRINT 
34313 LOCATE lB,12:PEN 2:PRINT 'Puls 
a tecla para seguir':PEN 1 
34413 WHILE INKEY$="':WENO 
3450 IF vl+v2+v3>360 THEN GOTa 3070 
3460 INK O,O:BORDER e:INK 1,26:INK 
2.2:INK 3,6:CLS 
3470 LOCATE 2,2:PEN 2:F'PIIH .:c¡¡ 
3480 LOCATE 13,2:PEr,¡ 1 :P
'!I¡T" 8LOQ 
UES 
 v.lor 
3490 LOCATE 13,3:PEN 3:PPItH STRING 
$( 11 ,GHR$(2e8J):" ":
;TRING$"3,CHP¡ 
(208» ;" ": STRING$( 7, CHR$" 208") 
351313 LOCATE 14,5:PE
1 1 :PRU.JT CH
'$(1 
43);' "; c 1$ 
3510 LOCATE 14,7:PEN 2:PPII,IT CHF:$'.1 
43) 
35213 LOCATE 14,9: PEt-I 3: PR II.n CHR$( 1 
43) 
3530 LOCATE 14,II:F'EN I:PRINT (:H
'$': 
207.' 
3540 LOCATE 16,7:PEN I :PRINT c2¡ 
3550 LOCATE 16,9:PEN 1 :PRINT c3! 
35613 LOCATE 16,11:PEtl I:PRINT c4$ 
3570 LOCATE 25,5:PEN 1 :PPINT POUNOC 
«vl
10B)/36B),l) 
3580 LOCATE 25,7:PRINT ROlND«(v2-1 
130)/3613) ,1) 
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3593 LOCATE 25,9:PRINT ROUr'ID«(v3
1 
33)/363),1) 
3603 IF t>9999 THEN jl=O 
3611'1 LOCATE 25,11 :PRINT ROUND(100-( 
(Cvl*100)/360)+CCv2
100)/360)+(Cu3_ 
11'10)/360» ,2) 
3620 LOCATE 33,5:PRINT Cul/360)*t 
3630 LOCATE 33,7:PRINT Cv2/360)
t 
3640 LOCATE 3
,9:PRINT (v3/360)¥t 
3650 LOCATE 33,11 :PRINT ROUNDCCt-(C 
Cvl/360)*t)+CCu2/360)*t)+CCv3/360)* 
0»,2) 
3660 LOCATE 13,13:PEN 2:PRINT STRIN 
G$(II,CHR$C208»:" ":STRING<f.(3,CHR 
$(208»; , ":STRING$(7,CHR$C208» 


3670 LOCATE 26,15:PEN 1 :PRINT '100" 
3680 LOCATE 33,IS:PEN 1 :PRINT t 
3690 FOR p=1 TO 360 STEP 1.5 
371'11'1 DEG 
3710 Q
TGIN 110,275:PLOT 72*COS(p), 
72*SIN(p),I:ORIGIN 15e,110:PLOT 152 
*COSCp) ,42*SIN(p),3 . 
3721'1 ORIGIN 150,90:PLOT 159*COS(p/2 
) ,40*SINCp/2),3 
3730 ORIGIN 15e+152*COS(-p/2) ,90+42 
*SINC-p/2) :DRAW 0,18,1 
3740 ORIGIN 0,90:DRAW 0,20,1 
3750 ORI GIN 300,90: DRAI,,) 0,20,1 
3761'1 NEXT 
3770 FOR a= 1 TO vI 
3780 DEG 
3790 ORIGIN 110,275:DRAW 7e
SIN(a', 
7e*COSCa),I:ORIGIN 150,110:['RAW IS0 
*SIN( a) ,40*COSC a) ,1 
3800 NEXT 
3810 FOR b=vl TO vl+v2 
3820 DEG 
3830 ORIGIN IIO,27S:DRAl..J 70-SIIHb), 
70*COSCb),2:0RIGIN ISO,110:DRAW 150 
*SINCb),40*COSCb),2 
3840 NEXT 
3851'1 FOR c=vl+v2 TO vt+v2+v3 
3860 DEG 
3870 ORIGIN 110,275:DRAW 70*Sll
Cc), 
7e*COSCc),3:0RIGIN 150,110:DRAW 150 
*SINCc),40*COSCc),3 
3880 NEXT 
3890 LOCATE 20,23:PRINT 'Pulsa tecl 
a. para borrar ' 
3900 l...lH1 LE INKEY<f="" :'"JEI,I[' 
3910 GOTD 260 
'::::92¡
 ....+.,..
--=;II:,.,.
........ LItIEAS fo:
+



":+ 


3930 M[I[\E 1 
3940 CLS 
3950 II'IK e,O:lr,W 1,13:80R['ER O:INK 
2,2: II
K 3,6:PEN 1 
3"'60 IHPUT "DAI1E COHeEPTO GENERAL"; 
nb$ 
3$'70 ¡ HPUT 'D"-r'IE COI
C EPTO L I NEA r": 
nl$ 
3$'80 II.IF'UT "DAI'IE CWKEPTO LlNEA s"; 
n2$ 
3990 INPUT "ELIGE N. DE VALORES POR 
L I NEA r 3-1 3) " : n" 
4000 IF nv'3 OR nv>13 GOTO 3990 
4010 INPUT' [)Ar1E r'!AXII10 ')ALOR" ¡mva 
4020 IF mUde e THEN GOTO 41'110 
4@30 INPUT "DAME VALOR I LINEA r";r 
1 
4040 INF'UT "[>At1E <,'ALOR LlNEA s";s 
1 
4(150 II,PUT "DAr'IE '.!ALOR 2 LlNEA r' ir' 
:2 
4060 INPUT "DAME VALOR 2 LINEA s':s 
2 
4070 INPUT "DAME VALOR 3 LINEA r";r 
3 
4088 INPUT "DAME VALOR 3 LINEA s";s 
3 
4091'1 LEl .1=r.l*199)/mva 
411'11'1 LET rl=(rl
199)/mva 
4111'1 LET s2=(s2*199)/mua 
4120 LET r2=Cr2*199)/mva 
4138 LET 
3=(s3*199)/mva 
4140 LET r3-(r3*199)/mua 
4151'1 IF nv-3 THEN GOTO 46613 


4711'1 ORIGIN 2e,213e-f:DRAW 40e,13,I:N 
EXT 
47213 FOR s=20 TO 440 STEP (39S/(nv+ 
1» 
4731'1 ORIGIN s,13:DRAW 1'1,401'1,1 :NEXT 
47413 
4751'1 LET 1=(395/Cnu+I» 
4760 ORIGIN 25+1, 199+rl :DRAW l,r2-r 
1 ,
 
47713 ORIGIN 25+1,199+sl:DRAW l,s2-s 
Si ; s 1,3 
4781'1 ORIGIN 25+C2*1),199+r2:DRAW 1, 
r3-r2,2 
4790 ORIGIN 25+(2*1),199+s2:DRAW 1, 
s3-s2,3 
481'113 IF nv-3 THEN GOTO 5111'1 
4811'1 ORIGIN 25+C3*1),199+r3:DRAW 1, 
r4-r3,2 
4820 ORIGIN 25+C3*J),199+s3:DRAW 1, 
s4-s3,3 
4830 IF nv 4 THEN GOTO' 5110 
4841'1 ORIGIN 2S+(4*1),199+r4:DRAW 1, 
r5-r4,2 . - 
4851'1 ORIGIN 25+C4*J),199+s4:DRAW 1, 
s5-s4,3 
4860 IF nv=5 THEN GOTO 5111'1 
4871'1 ORIGIN 2S+(5*1),199+r5:DRAW 1, 
r6-r5,2 
4880 ORIGIN 2S+(5*1).199+s5:DRAW 1, 
s6-s5,3 
4891'1 IF nv=6 THEN GOTO 5110 
491'11'1 ORIGIN 25+(6*1>,199+r6:DRAW 1, 
r7-r6,2 
4911'1 ORIGIN 25+C6*1) ,199+s6:DRAW 1, 
s7-s6,3 
4921'1 IF nv-7 THEN GOTO 5111'1 
4930 ORIGIN 25+(7*1),199+r7:DRAW 1, 
r8-r7,2 
4941'1 ORIGIN 25+(7*1),199+s7:DRAW 1, 
s8-s7,3 
4951'1 IF nv=8 THEN GOTO 5110 
4963 ORIGIN 2S+C8*T),199+r8:DRAW 1, 
r9-r8,2 
49713 ORIGIN 25+(8*1>,199+s8:DRAW 1, 
s9-s8,3 
4980 IF nv=9 THEN GOTO 5111'1 
49913 ORIGIN,25+(9*1 ),199+r9:DRAW 1, 
r10-r9,2 
501'11'1 ORIGIN 25+C9';¡),199+s9:DRAI.o.II, 
sle-s9,3 
5011'1 IF nv-le THEN GOTO 51113 
Se20 aRIGIN 2S+(le*1),199+rle:DRAW 
l,rll-rle,2 
51'131'1 ORIGIN 25+Cle*I),199+s10:DRAW 
l,sll-sle,3 
51'141'1 IF nv=11 THEN GOTO 5111'1 
513513 ORIGIN 2S+(II*I),199+rll:DRAW 
1 , r 1 2-r 11 , 2 
51'161'1 ORIGIN 25+( 11*1) ,199+s11 :DRAW 
l,sI2-s11,3 
51'171'1 IF nv=12 THEN GOTO 5110 
5080 ORIGIN 25+(12*J),199+rI2:DRAW 
1 , r 1 3-r 1 2 , 2 
51'1913 ORIGIN 25+(12*1),199+s12:DRAW 
l,s13-s12,3 
51131'1 IF nv=13 THEN GOTO 5111'1 
51113 LOCATE 29,I:PEN I:PRINT mva 
51213 LOCATE 29,3:PEN 1 :PRINT mva*C3 
/4) 
51313 
5141'1 
51513 
51613 
5171'1 
51813 
51913 
5200 
52113 
5220 
52313 
52413 
52513 
*** 


41 ",0 It
PUT "DAr'IE VALOR 4 LINEA r": r 
4 
4170 H,¡PUT 'DA/lE 'JALaR 4 LINEA s":s 
4 


'-\180 
4190 
42e@ 
4210 


LET r4- r r4*199)/mva 
LET s4-(s4*199)/m','
 
IF nv=4 T
EN GaTO 4660 
II
PUT "DA/1E VALOR S LI NEA 


r" ir.' 


r 11; r 


,-..11 ; r 


S'l; -=. 


r 11 ; r 


Sil: s 


r 11 . 
, 


r 11 . 
, 


r 11 ; 


r 11 . 
, 


46713 I F c$=" c' THEN 3941'1 
4681'1 CLS:INK 1,26 
4691'1 FOR f=0 TO 21'11'1 STEP 51'1 


471'11'1 ORIGIN 2e,199+f:DRAW 4131'1,13,1 


LOCATE 29,6:PEN 1 :PRINT mva/2 
LOCATE 29,le:PRINT mva/4 
LOCATE 29,13:PRINT " e" 
LOCATE 29,16:PRINT -mva/4 
LOCATE 29,19:PRINT -mva/2 
LOCATE 29,22:PRINT -mva*(3/4) 
LOCATE 29,25:PRINT -mva 
LOCATE 33,2:PEN I:PRINT nb$ 
LOCATE 33,13:PEN 2:PRINT nl$ 
LOCATE 33,24:PEN 3:PRINT n2$ 
WHILE INKEY$="':WEND 
GOTO 2613 
'********* BARRAS 2D ********* 
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, 


4228 
5 
423(1 
4240 
4250 
4260 
6 
4271'1 
6 
428(1 
4290 
4301'1 
4311'1 
7 
4320 
7 
4331'1 
4341'1 
4350 
4360 
8 
4370 
8 
4381'1 
439@ 
441'113 


H.IPUT "OAr1E VALOR 5 


LlNEA S";8 


LET r5 (r.5*199)/m'Ja 
LET s5-(
S.199)/mva 
I F n "=5 THEN GOTO 4660 
INPUT "OA
lE VALOR 6 LINEA 


IIIF'UT 'DAI1E ",iALOR 6 LH'IEA 


LET ró-(r6*199)/mva 
LET s6:
s6*1

)/mva 
IF nv=ó THEN GOTO 4661'1 
II'JPUT "DAME VALOR 7 LINEA 


H,¡PUT "DAr1E !,cALOR 7 LI NEA 


LET r7=(r7*IOO)/mvd 
LET s7-(s7*199)/mva 
IF nv 7 THEN GaTO 4660 
¡ NPUT "DAI1E VALOR 8 L I 
IEA 


H.¡PUT "DAME v'ALOP 8 LI NEA 


LET r8=Cr8*199)/mva 
LET B8-(.8*199)/m
a 
I F nv-8 THEr.¡ GOTO 46':.13 


.. 


41 
-tII. _ 


r .. I 
10111 


, . 


.., 
111.. 



 4 
..111 
VALOR 9 LlNEA r 11; r 
VALOR 9 LlNEA 5 11 ;5 


4410 INPUT 'DAME 
9 
4420 INPUT "DAME 
9 
4431'1 
4441'1 
4451'1 
4461'1 
rle 
4470 INPUT "DAME VALOR le LINEA s"; 
sle 
44813 
4491'1 
451'11'1 
4511'1 
r 11 
45213 INPUT "DAME VALOR 11 L I NEA s"; 
sil 
4531'1 
45413 
4551'1 
4560 
rl2 
4571'1 INPUT "DAME VALOR 12 LINEA S"j 
s12 
4581'1 
4591'1 
461'11'1 
46113 
rl3 
4621'1 INPUT "DAME VALOR 1 3 L I NEA s" j 
s13 
4631'1 LET rl3=(rI3*199)/mva 
4641'1 LET sI3-(sI3*199)/mva 
4651'1 IF nv
13 THEN GOTO 4661'1 
4661'1 INPUT PARA RECTIFICAR PULSA 
c >+ENTER" ;'c$ 


LET r9=(r9*199)/mva 
LET s9 Cs9*199)/mua 
IF nv-9 THEN GOTO 4661'1 
INPUT "DAME VALOR 1 e LI NEA 


LET rl13=Crle*199)/mva 
LET sI0=Csle*199)/mva 
IF nv=le THEN GOTO 4661'1 
INPUT "DAME VALOR 11 LI NEA 


LET rll=(rll*199)/mva 
LET sll=Csll*199)/mua 
IF nv 11 THEN GOTO 4661'1 
INPUT 'DAME VALOR 12 LINEA 


LET rI2=(rI2*199)/mva 
LET sl2 (sI2*199)/mva 
IF nv 12 THEN GOTO 4661'1 
INPUT 'DAME VALOR 13 LINEA 



-- 
:erl- 


Oro- 


5260 INK 2,26:INK 3,26 
5270 CLS:INK l ,13:PEN 1 :INPUT 'Intr 
oduc
 conc
pto d
 datos( le l
tras 
max.)'jcd$:PRINT:INPUT' Introd 
uc
 maxlmo valor(sin t
n
r 
n cu
nt 
a 
1 signo): O
 s
r m
nor d
 113013 
apar
c
ra m
dia y total";mv 


5280 PRINT 
5290 INPUT "Introduc
 val ?r Ene>ro lOl ; 

 
5300 P,RINT 
5310 INPUT "Introduc
 valor F
br
r'o 
. j-f 
5320 PRINT 
5330 INPUT Introduc
 valor Marzo!! ; 
m 
5340 PRINT 
5350 INPUT I IntroducE- I¡ét 1 or Hbr i 1 " i 
a 
5360 PRINT 
5370 INPUT "Introduc
 valor' Ma)'oll ;m 
y 
5380 PRINT 
5390 INPUT 11 Introduce vo.l c,r .Jun 10 1 i 
j 
54130 PRINT 
5410 INPUT " Intr'oduc
 valor Ju 1 ¡o": 
j 1 
5420 PRINT 
5430 I
IPUT "Introduc
 va.lor Aoosto ll 


jag 
5440 PRINT 
5450 INPUT "Introduc
 valor S
pti
m 
bre 11 ; s 
5460 PRINT 
5470 INPUT "Introduc
 valor Octubr
 
n jO 
5480 PRINT 
54913 INPUT 'Introduc
 valor Novlemb 
re. ;n 
5500 PRINT 
5510 INPUT 'Introduc
 valor Oiciemb 
re u ; d 
55213 PRINT 
55313 IF mv>le00 THEN PRINT "No apar 
ecera medi a ni total 1I 
5540 PRINT 
5550 INPUT "BARRAS(b) O PICOS" ;gb$ 
5560 PRINT 
5570 INPUT "Para r
ctificar pulsa 
c>+ENTER" ;c$ 
5580 IF c$-"c" THEN GOTO 5250 
5590 IF sx$="3" THEN GaTO 5630 
5600 IF sx$='I" OR sx$-"2" THEN GOT 
O 6280 
56113 ENO 
5620 ' ************** POS Y NEG *** 
************* 
5630 KI=165 
56413 IF mv>Kl THEN 56513 
56513 LET e CINT«
*Kl)/mv) 
5660 LET f-CINT«f*KI/mv» 
5670 LET m=CINT«m*KI)/mv) 
5680 LET a-CINT«a*KI)/mv) 
56913 LET my=CINT«my*KI )/mv) 
57013 LET j-CINT«j*Kl)/mv) 
57113 LET Jl=CINT«jl*KI)/mv) 
57213 LET ag=CINT«ag*Kl )/mv) 
5730 LET s CINT«s*KI)/mv) 
5740 LET o CINT«o*kl)/mv) 
5750 LET n-CINT«n*kl)/mv) 
5760 LET d-CINT«d*Kl)/mv) 
57713 CLS:MODE 2 
5780 INK 0,2:INK 1,26:BORDER 2 
5790 IF mv>I000 GOTO 5820 
5800 LOCATE 71 ,le:PRINT CINT«(
+f+ 
m+a+my+j+jl+ag+s+o+n+d)/Kl)*mv) 
5810 LOCATE 71 ,16:PRINT ROUNO««« 
e+f+m+a+my+j+jl+ag+
+o+n+d)*mu)/Kl) 
/12»,3) 
5820 LOCATE 70,2:PRINT cd$ 
58313 LOCATE 70,3:PRINT STRING$(10,C 
HR$( 2138» 
5840 LOCATE 74,8:PRINT "total' :LOCA 
TE 70,7:PRINT "r
dondeo" 
5850 LOCATE 71 ,14:PRINT "media/mes" 


5860 LOCATE 2,I:PRINT 10*(mu/I0)j"_ 
":LOCATE 3.3:PRINT 8*(mu/10):" " 
5870 LOCATE 3,5:PRINT 6*(mu/10)'" " 
:LOCATE 3,7:PRINT 6
(mu/10)'" ,,'- 
5880 LOCATE 3,9:PRINT 2*(mu/li):" , 
:LOCATE 3,11:PRINT e*(mv/le)." ;,- 
5890 LOCATE 3.13:PRINT 2*(mv/(=10» 
;"_' :LOCATE 3.15:PRINT 4"(mv/(-10» 


." " 
, 
5900 LOCATE 3.17:PRINT 6*(mv'/(-10» 
." _ ' : LOCATE 3,19:PRINT 8*(mv/(-10» 
, 
," , 
, - 
5910 LOCATE 2,21 :PRI
IT 10*(mv/(-le) 
) .11 I 
, - 
5920 ORIGIN 60,60:0RAWR e,350 
59313 ORI GIN 6e,225:0RAWR 5513.0 
5940 LOCATE 12,23:PRINT IIE I 
5950 LOCATE 17,23:PRINT "F" 
5960 LOCATE 22,23:PRINT 11M'! 
5970 LOCATE 27,23:PRINT "A" 
5980 LOCATE 32,23:PRINT "M' 
5990 LOCATE 37,23:PRINT IIJII 
601313 LOCATE 42,23:PRINT "j" 
60113 LOCATE 47,23:PRINT IIA I 
6020 LOCATE 52,23:PRINT liS" 
61330 LOCATE 57,23:PRINT ha" 
6040 LOCATE 62,23:PRINT "N' 
6050 LOCATE 67.23:PRINT "O" 
61360 LOCATE 6e,24:PRINT 


Puls
 tecla para borrar 
613713 IF gb$="b" OR ab$-"B" THEN GOT 
O 61130 
60813 IF NOT gb$-' b" OR NOT gb$="B' 
THEN GOTO 691313 
613913 ENO 
611313 FOR K=-10 TO 10 
6110 LET w 225 
61213 ORIGIN ge+K,w:ORAW 0,e 
61313 ORIGIN 13e+K,w:ORAW e,f 
61413 ORIGIN 17e+K,w:DRAW e,m 
61513 ORIGIN 210+K,w:ORAW e,m 
61613 ORIGIN 25e+K,w:DRAW e,my 
6170 ORIGIN 2ge+K,w:DRAW e,j 
6180 ORIGIN 33e+K.w:DRAW e,jl 
6190 ORIGIN 37e+K,w:ORAW 0,ag 
6200 ORIGIN 4Ie+K,w:ORAW 0,s 
6210 ORIGIN 45e+K,w:ORAW O,0 
62213 ORIGIN 4ge+K,w:ORAW e,n 
62313 ORIGIN 53e+K,w:DRAW e,d 
6240 NEXT 
6250 WHILE INKEY$='" :WENO 
62613 GOTO 2613 
6270 
*.
*....***
****** pos o neg 
*************
* 
62813 LET e=CINT«
*330)/mv) 
62913 LET f-CINT«f*33e/mv» 
63130 LET m=CINT«m*330)/mv) 
6310 LET a=CINT«a*33e)/mu) 
63213 LET my=CINT«my*33e)/mv) 
6330 LET j=CINT«j*33e)/mv) 
6340 LET jl=CINT«jl*33e)/mv) 
6350 LET ag CINT«ag*33e)/mv) 
63613 LET 5=CINT«s*330)/mu) 
6370 LET 0=CINT«0*330)/mv) 
6380 LET n=CINT«n*33e)/mu) 
63913 LET d=CINT«d*33e)/mu) 
6400 CLS:MOOE 2:IF sx$="2' THEN INK 
0,3::IF sx$="2' THEN BORDER 3:IF s 
x$-"2" THEN INK 1,26 . 
6410 IF mv>le00 THEN GOTO 64413 
6420 LOCATE 71 ,10:PRINT CINT«(
+f. 
+m+a+my+j+jl+ag+s+o+n+d)/330)*mv) 
6430 LOCATE 71.16:PRINT ROUNO««(e 
+f+m+a+mT+J+jl+
g+s+ú+n+d)*mv>/330) 
/12),3) 
6440 LOCATE 70,2:PRINT cd$ 
6450 LOCATE 70,3:PRINT STRING$(10,C 
HR$( 208» 
6460 LOCATE 74,8:PRINT "total":LOCA 
TE 70,7:PRINT "redondeo" 
6470 LOCATE 71 .14:PRINT "media/m
s" 
6480 IF sx$="2" THEN mv-(-I)*mv 
6490 LOCATE 2.1 :PRINT le*(mu/10);"_ 
":LOCATE 3,3:PRINT 9*(mv/le);'_" 
6500 LOCATE 3,5:PRINT 8*(mv/10);"_' 
:LOCATE 3,7:PRINT 7*(mv/10);' , 
6510 LOCATE 3,9:PRINT 6*(mv/10); "_" 
:LOCATE 3.II:PRINT 5*Cmv/10);"_" 


6520 LOCATE 3,13:PRINT 4*(mu/10); _ 
":LOCATE 3,15:PRINT 3*(mv/10):' " 
6530 LOCATE 3,17:PRINT 2*(mu/10
j" 
":LOCATE 3,19:PRHH I*(mv/le);"_" - 
6548 ORIGIN 60.60:DRAWR 13,350 
65513 ORIGIN 60,60:DRAWR 550,0 
6560 LOCATE 12,23:PRINT "E" 
65713 LOCATE 17.23:PRINT "F" 
6580 LOCATE 22,23:PRINT "M' 
6590 LOCATE 27.23:PRINT "A' 
66013 LOCATE 32,23:PRINT "M" 
6610 LOCATE 37,23:PRINT "J" 
6620 LOCATE 42,23:PRINT "J" 
6630 LOCATE 47,23:PRINT "A" 
66413 LOCATE 52,23:PRINT "S' 
6650 LOCATE 57,23:PRINT "O" 
66613 LOCATE 62,23:PRINT 'N" 
6670 LOCATE 67.23:PRINT 'O" 
6680 LOCATE 60,24:PRINT 


Pulsa tecla para borrar" 
6690 IF gb$="b' OR gb$="B" THEN GOT 
O 6710 
6700 IF NOT gb$='b' OR NOT gb$="8" 
THEN GOTO 6900 
6710 FOR K=-le TO le 
6720 LET '0-60 
67313 ORIGIN 90+K,w:DRAW e,
 
67413 ORIGIN 13e+K.w:ORA\,.1 0,f 
6750 ORIGIN 170+K,w:DRAW 0,m 
67613 ORIGIN 2Ie+K,w:DRAW 0,a 
6770 'ORIGIN 250+K.w:ORAW e,my 
67Se ORIGIN 2ge+K,w:DRAW.e,j 
6790 ORIGIN 330+K,w:DRAW e,jl 
6800 ORIGH
 37e+K,w:ORAW 0,ag 
6810 ORIGIN 410+K,w:DRAW 0,"- 
68213 ORIGIN 450+K,w:ORAW 0,0 
6830 ORIGIN 4ge+K,w:ORAW 0,n 
6840 ORIGIN 53e+K,w:DRAW e,d 
6850 ORIGIN 530,w:DRAW K,d 
68613 t,IEXT 
68713 WHILE INKEY$-"" :WENO 
6880 GOTO 260 
6890 

***+
*
..
.. PICOS ...**.*
**
* 
***iIt* 

,900 LET K=0 
6910 IF 5x$="I" OR sx$='2' THEN LET 
w=60 
6920 IF sx$="3" THEN LET w=225 
6930 FOR bg--le TO le 
6940 ORIGIN ge+K,w:ORAW bg,e 
6950 ORIGIN 13e+K,w:ORAW bg,f 
6960 ORIGIN 17e+K,w:DRAW bg,m 
6970 OF:IGIt
 21e+K.w:DRAlo,l bg,a 
6980 OPIGIN 25e+K,w:DRAW bg,my 
69913 ORIGIN 290+k.w:ORAW bg,J 
7000 OR 1 GIN 
:30+". w: DRAW.ba, j 1 
70113 ORIGIN 370+
.w:DRAW bg..g 
71320 ORIGIN 410+K,w:ORAW bg,. 
71330 ORIGIN 450+K,w:DRAW bq,o 
7040 ORIGIN 4 0 0+k.w:DRAW b
,n 
70513 ORIGIN 530+K ,w:DRAI,1 t,g,d 
7060 NEXT 
70713 IF 5x$;"3" THEN GOTO 6250 
71380 IF sx$-'I" OR sx$="2" THEN GOT 
O 6870 


MICROHOBBY AMSTRAD 17 




 


VIEtN TO 


... 


A View 10 A KiII, vive las 
emociones de la última 
aventura de James Bond en 
tres estenarios diferentes; 
París, Siliton Valley y lhe City 
Hall en San Frantisto" 


a muslca de Duran-Duran 
invade el ambiente, llenando nues- 
tros oídos; 
Dance into the fire... The final kiss 
is always me.... so dance into the fire. 
Mientras el inefable Roger Moore, 
en una de sus mejores actuaciones de 
toda la historia del 007, vive y deja 
morir. James Bond, ama a las muje- 
res más bellas, conduce los mejores 
deportivos y lucha contra las mentes 
más retorcidas. 
Todo desarrollado en una acción 
trepidante, en la que su vida está en 
constante peligro, y donde cualquier 
agente de la ClA o del KGB, encon- 
traría una muerte segura. 
En esta aventura nuestro enemigo 
es el temible Max Zorin, uno de los 
más grandes magnates del mercado 
europeo de la microelectrónica. 
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Max, pretende hacerse con la he- 
gemonía del mercado de los ordena- 
dores, pero sin seguir el notable 
ejemplo de Tramiel (presidente de 
Atari), cuya política es la reducción 
notable de los precios, sino de una 
forma mucho más drástica y efecti- 
va; eliminando a la competencia. 
Max ha tomado lo de eliminar a la 
competencia en su sentido más ele- 
mental, no pretende arruinarles ni 
quitarles el mercado, su objetivo des- 
truir la primera factoría mundial de 
chips, con una bomba nuclear. 
El juego de ordenador está dota- 
do de multicarga, lo que permite que 
su acción se desarrolle en tres esce- 
narios diferentes: The Silicon Valley, 
City Hall y las calles de París. 


KILL 


The Silicon Valley 


James Bond, descubre que Max 
pretende destruir el Silicon Valley, 
colocando una bomba nuclear en 
una mina abandonada. 
Al estar el Silicon Valley situado so- 
bre una falla geológica, una explo- 
sión de este calibre haría que toda 
la zona se precipitase al Pacífico, 
consiguiendo Max de esta forma tan 
sencilla, hacerse con el mercado in- 
ternacional del chip. 
Para destactivar ésta, 007 debe in- 
tentar descubrir en los cientos de ga- 
lerías, el lugar donde ha sido colo- 
cada la bomba y desactivarla. 
James tiene que contar con la ayu- 
da de May Day, papel encarnado 
por la supermaciza Grace Jones, 
adepta a Max y que caerá fácilmen- 
te ante el atractivo irresistible de Ja- 
mes. 
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Solamente con su ayuda podremos 
localizar y desactiva el mecanismo 
de relojería que detonará la bomba. 
En nuestro recorrido por las distin- 
tas galerías encontraremos diversos 
objetos que nos ayudarán en nues- 
tra misión: pistola lanza cabos, con 
ella podemos fijar un extremo de la 
cuerda de escalar a cualquier pared, 
moviéndonos de esta manera por si- 
tios que serían inalcanzables si no la 
lleváramos encima. 
Dinamita y detonadores, utilizán- 
dolos en los sitios adecuados, pode- 
mos eliminar rocas y otros obstácu- 
los que impiden nuestro paso a otras 
cavidades de los subterráneos. 
Números código, con ellos podre- 
mos desactivar la bomba, pero de 
todos los que se encuentran disper- 
sos en los corredores, solamente sir- 
ven cinco y en un determinado or- 
den, descubrirlo es tarea de un gran 
agente secreto. 
Indicador direccional, en nuestro 
recorrido por las profundidades dis- 
ponemos de un indicador de la posi- 
ción de la bomba, éste aparece en 
la parte inferior de la pantalla y es- 
tá representado por u
a flecha roja. 
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M r. Joystick 


Las calles de París 


May Doy, después de asesinar a 
un agente amigo de Bond, se lanza 
en paracaídas de lo alto de la torre 
Eiffel, 007 baja de la torre donde to- 
maba el almuerzo con el agente, que 
ya no tiene problemas de ningún ti- 
po, y coge un taxi en persecución del 
paracaídas. 
Esta se realiza por las calles de Pa- 
rís, repletas de tráfico y con policía 
municipal que no permite infraccio- 
nes al código. Su misión es atrapar 
a May Day en el momento del ate- 
rrizaje. 
Un programa realizado aprove- 
chando la fama de la película, sin 
grandes maravillas, pero que tiene 
el aliciente de que está dividido en 
tres partes, cada una de las cuales 
se puede jugar por separado, sien- 
do cualquiera de ellas completamen- 
te distinta de las otras. 
Tres juegos por el precio de uno. 
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City Hall 


Cumplida con éxito la primera mi- 
sión, 007 viaja a San Francisco en 
busca de Max Zorin, gracias a la in- 
formación obtenida a base de seduc- 
ción de May Doy, James le localiza 
en el City Hall, pero el astuto Max, 
consigue encerrar a 007 y a su nue- 
va compañera Stacey en el ascensor, 
donde quedan atrapados entre dos 
plantas. Después de esto prende fue- 
go a los sótanos del edificio y huye 
dejando a nuestro protagonista y a 
su bella compañera en verdadero 
peligro. 


La revista de mayor prestigio en Europa 


¿SERA VERDAD? 
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Cedric es un sencillo programo, bellamente presentado, que nos introduce en 
uno de los juegos de inteligencia y educación más conocidos, en el que se troto 
de ejercitar lo memoria y retentivo visuales. 


a historia del juego es co- 
mo sigue: 
Cedric, el inevitable personaje, ha 
perdido sus juguetes, mejor dicho, ha 
olvidado dónde está cada uno de 
ellos diseminados en un grupo de ca- 
jas. 
 
Nosotros, inevitablemente, tam- 
bién debemos ayudarle a encontrar- 
los todos mediante el simple método 
de escoger una casilla dentro de un 
tablero que aparece en la pantalla 
y que representa todas las cajas en 
las que están distribuidos los jugue- 
tes de Cedric. 
Se juega entre dos personas y se 
trata de recordar dónde van apare- 
ciendo los jueguetes de forma tal, 
que cuando uno se descubre debe- 
mos decirle al ordenador en qué ca- 
silla se encuentra su pareja, idéntica 
a él. 
La elección de la casilla se realiza 
tecleando un número y una letra, de 
forma similar al conocido juego de 
los barquitos. 
Naturalmente, gana el que más ju- 
guetes encuentra hasta el final del 
luego. 
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COMPATIBLE 
CPC 464 
CPC 664 
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40 
50-470 
480-690 
700 
710 
720-790 
800-820 
840-850 
860-1010 
1030 
1050-1070 
1080-1150 
1160-1410 
1420-1440 
1450-1490 
1500-1540 
1550-1760 
1770-1870 
1890-1930 
1940-1960 


ESTRUCTURA 
DEL PROGRAMA 



 ' MI:j
I ' I ' ) 
. 


Selección de colores. 
Definición de caracteres. 
Definición de gráficos. 
Factor aleatorio. 
Títulos. 
Lugares de los juguetes en la matriz. 
Comienzo del juego? 
Pide los nombres de los jugadores. 
Dibujo tablero. 
Letras y números del tablero. 
Bucle principal. 
Fin del juego. 
Pide coordenadas y muestra los juguetes. 
Fin del turno. 
Borra gráficos. 
Mueve o los coordenadas correctas. 
Examina matrices e imprime juguetes. 
Títulos e instrucciones. 
Sonido. 
Actualizo puntuaciones. 



. 
S -rl- 


Oro 


10 REM ** Ce 
dr í e ** 
20 REM ** by Steue Luc.s ." 
3a REM Cc) Amstrad Semanal 
40 MOOE I:INf' O,I:INK 1,24:INK 2.2,' 
: INK 3.6 
50 REM 
. defln
 caracter
s .
 
60 SYMBOL AFTER 200 
7e SYM80L 215,128,128,255
3,255.128 
,128,128 
80 SYI1BOL 216,1,1,255,64,255.1,1,1 
9a SYMBOL 217,156,156,144.144.144,2 
55,128 
100 SYMBOL 218,0,0,0,0,0,0,128,128 
110 SYMBOL 219,7,3,1.1.1,1,3,7 
12a SYMBOL 220,240,224,I Q 2,192,192, 
192.224,240 
130 SYMBOL 221.15.24,63,5,13.9,18,2 
O 
140 SYMBOL 222.24B,140,254,40,236.3 
6.18,10 
150 SYM80L 223,14.31.55,127,63,3,14 
,0 
160 SYMBOL 224,O,8,152,248,152,24,8 
,0 
1 70 SYMBOL 225, 1 , 1 , 1 . 1 , 1 , 1 , 39,31 
180 SYMBOL 226,192,192,192.192,196, 
196,245,254 
190 SYMBOL 227,15,63,255,25,31,25,3 
1,31 
200 SYt-IBOL 228,240,252,255,216.248. 
248,216.216 
210 SYMBOL 22 9 ,0,96,112,88,204.252, 
0,192 
220 SYMBOL 230,103,159.89,185,95.18 
7,44,71 
230 SYMBOL 231,230,249,154,157.250, 
221,52,226 
240 SYM80L 232,192,128,1
6,191 ,255, 
255,65, 113 
250 SYM80L 233,1,255,255,255,255.0, 
0,0 
260 SYM80L 234,24,24,48,255,255,20, 
20,60 
270 SYM80L 235,0,2.2,250,254,40,40, 
120 
280 SYM80L 236,0,0,15,11,15,255,127 
,63 
290 SYMBOL 237,128.128,240,240.240, 
255,255,255 
300 SYM80L 238,0,
54,222,142.222.25 
4, 254 , 1 2 
310 SYMBOL 239.0,15,9.9,127,127.127 
,48 
320 SYMBOL 240,0,0.255,253,253.220. 
20,60 
330 SYM80L 241,136,112,127,127,127. 
14,10,30 
340 SYM80L 242.192.224,224,224,248. 
204,14,174 
3Se SYMBOL 243.1 ,3,3.3.15.25,5b,58 


360 SYMBOL 244,255.133.255.5.255,25 
5,12,12 
370 SYM80L 245,255.136,25
.13
.255, 
255.24,24 
380 SYM8DL 246,0,160.224,1
e,235.
5 
5,53,63 
3ge SY
1BOL 247,O.2.3.
.127,255,17A. 
254 
4(1(1 S'd1E:OL 24
:.2'
O .15c..2'iS. :-'¿. 
':'.] ':. 
,144,224 
410 S',r'180L 249,7.28, 15,9,9,4,4,3 
420 S1M80L 250,0,0,192.48,252,255,2 
...J.24 
430 SYM80L 251,0,0,15,24.127,225,24 


.24 


440 SYMBOL 252,0,O.0.8,232,252,8,8 
450 SYM80L 253,0,128.143,241,255,12 
7,3,<: 
460 Syt-IBOL 254, 1 <:8,224, O ,0 ,255,254, 
252,248 
470 SYMBOL 255,1.1,1,1,<:55,127,63,3 
1 
480 REM .* define los grapicos de l 
os jugu
tes** 
490 
.S=CHR$(255)+CHR$(2541 
500 ab$-CHR$(253)+CHR$(252) 
510 acS CHR$(251)+CHR$(250) 
520 ad$=CHR$(245)+CHR$(244) 
530 ae$=CHR$(2431+CHR$(242) 
540 afS-CHR$C2491+CHR$(248) 
550 agS=CHR$(247)+CHR$C246) 
560 ah$-CHRS(241J+CHR$(240) 
570 a,$-CHRS,239)+CHR$(238) 
580 aJ$=CHR$(2361+CHR$(237) 
590 akS=CHR$(234)+CHR$(235) 
600 aIS=CHR$(232)+CHR$(229) 
610 am$ CHR$(230)+CHRS(231) 
620 an$=CHR$(227)+CHR$(228) 
630 aoS-CHR$(225)+CHR$(226) 
640 ap$=CHR$(223)+CHR$C224) 
650 al$-' 
660 aq$-CHRS(221)+CHR$(222) 
670 ar$=CHR$(21
)+CHR$,220) 
680 as$=CHR$C2171+CHR$(218) 
690 at$=CHR$(215)+CHRS(216) 
700 RANDOMIZE TIME 
710 GDSUB 1780:REM *. InstrucCiones 


** 


720 REt1 +* 08c T ECTDS A LA MATRI Z ** 
730 DIM ob%(10,101 
740 z%-1 
750 FOR y=1 TO 8:FOR x-I TO 5 
760 a=INT(RND(!J"5)+I:b=INT(RNDCI)* 
8HI 
770 IF ob%(a,b I C}0 THEN 760 
7S0 ob%'a,b)=z%:z%=z%+1 :IF z%}20 TH 
EI-I z:<= 1 
790 NEXT X,V 
8ea REM -. comienzo de) Jueqo 
* 
810 PPINT:PRINT" Pulsa (S
ace> pa 
ra e-mpezar." 


820 a$=INKEY$:IF .$()" "THEN 820 
830 REM ** nombre de los Jugadores 


*
 


840 CLS:PEN 1 :INPUT"Nombre de! JUQa 
dor 1 ";n.mel$:PRINT CHR$¡7 
) 
850 ¡ '.IPUT' '.Iombr e de I Jugador 2 
':name2$:PRINT CHR$(7' 
860 REt-1 .* dlbu,la el t"b.ler'o *+ 
870 CLS 
880 ORI GH, 1.100 
8 Q O FOR x=0 TO 8 

'00 ,-IO'..'E x +.:',4 ,1: ['RAkIR [1,350,1 
910 NEXT x 
-:'213 l'¡INDOW IH,I.
:5,20,25:PAPER N1,2 
:CLBlIl 
930 MOUE 0,299:DPAWR 550.0,1 
940 TAG 
';'50 11U..'E [1,260: DRAt.JR 550. el, 1 
96(1 r'IO"-'E: 5S0. O: CoRHt.lF' r1. 2<>9,1 
970 FOR ,=0 TO 4 
980 MO')E O, ,,*52: (\RAr,IR 550, 0,1 
990 MOVER -30,ae:PRINT CHRI'69-.1: 
1000 NEXT 
1010 TAGOFF 
1820 REM ** nombre c de los 
J
S .+ 
1030 PEN 2:FOR x= 0 TD 7: LOCATE x' 
4+2,2:PRINT x+l; :NEXT x 
1040 RH1 ** buc!e pr'lnclpal...repe 
ti do hasta que 
e encuentren todos 
los ..iuglJ€'tes.... 
1050 WHILE J%C20 
1060 GOSUB 1170 
1070 ¡'JEND 
1080 REM ** fin ¥* 
1090 CLSlll :PENIII ,0:PRINTlll ,"H
s 
nc 
ontrado todos los objetos.8len hech 
o. .. 


1100 PEN 111 ,3:F'RINTNl ,r,am<?!$.;' h'dl 
ados ";:.1%: " jUQljeteoo::. tI 
1110 PRINTttt,narne2$;'1 fClund ":-:.2".; 
toYS II 
1120 PRINTIII :PRINTIII." Pulsa CS
'ac 
e> pa.ra continu
r I 
1130 aaS INKEY$:IF a.$<)" " THEN 11 
30 
1140 RlIN 
1 1 50 END 
1160 REM *
 coordenadas. de 1 a casI I 
la e!<?glda ** 
1170 CLSlll:PEN IIl,0:F'RINTIII,SPCt5)¡ 
'CedrIC:>' los Jugu<?tes perdr,jos' :PE 
N 111,3 
1180 PEN 111 ,O:IF pl%=O THEN PRINTll1 
,namel$jSPC(5);'prJntos ':sl

 ELSE P 


Publicidad 


Toda España /0 comenta... 


La revista de ordenadores de mayor venta en toda EUROPA 


Publico cada mes los mejores .programas en Código Máquina que se pueden ver en una revista 
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ARIABLES 
rnIJ":I'
 l1 [cm u ["'NI' 
name 1 $, 
name2$ Nombres de los 
jugadores. 
sl%, s2% Puntuaciones de 
ambos. 
j% Número de juguetes 
encontrados. 
z% Usado como un flag 
(indicador) . 
aa$-at$ Gróficos poro los 
jugadores. 
ob% (x, y) Motriz que almaceno 
los juguetes. 
o, b Distribución aleatorio 
de los juguetes. 
x, y Coordenadas poro los 
t$, s$, gróficos. 
t, s Celdillas escogidas 
por los jugadores. 
fa% Juguete encontrado? 
qo, qb, po, pb Coordenadas de los 
juguetes visibles en 
pantalla. 


RINTlll ,nam..2$: SPCC 5) ;" pun tos "; sZ
 
1190 PRINTIII 
1200 PRINTIII, 'prlm..ra ..le-ccion 
:PEN 111,3 
1210 sS INKEYS:IF s$ ,,, THEN 1210 
1220 
$-UPPERSCsS):IF ASCCsS»56 OR 
ASCCs$)(49 THEN 1210 
1230 PRINTIII,s$;" ": 
1240 tS=INKEY$:IF t$="" THEN 1240 
1250 t$=UPPERS(t$):IF ASCCtS»69 OR 
ASC(IS)(65 THEN 1240 
1260 PRINTlIl,tS 
1270 GOSUB 1510 
1280 IF fa%=l THEN CLSlll :GOTO 1170: 
REM ** mIra SI ya se ha elegIdo 
* 
1290 p-ob%Ct,s):pb-t:pa-s 
1300 PEN 111,0 :PRINTlll, "Ent..r your s 
econd Quess "; :PEN 111,3 
1310 si INKEVS: 1 F sS='" THE
I 1310 


Poro que lus dedos 
no reo/icen e/lrobojo duro. M-H. AMS- 
T/?AD /0 hace por li. Todos los /islodos que incluyan 
esle /ogolipo se encuenlron o lu disposición en un cos- 
selle mensual, so/idlonos/o. 
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1320 sS=UPPER$(
S):!F ASC(sS»56 OR 
ASC(sS)(49 THEN 1310 
1330 PR!NTlll,sS:" ": 
1340 tS=INKEY$:IF 1$-"" THEN 1340 
1430 CLSlll:LOCATE 1I1.1,2:PRINTlll,"P 
ul=.a <Space-) p¿.c.r",a Gontinuil.r. 1I 
1440 aS=INKEY$:lF a$()" " THEN 1440 


" . 
, 


145
 REH -- borra grapico
 
. 
1468 LOCATE 2+(pa-l¡-4,5+Cpb-l)*3:P 
RII'IT' " : 
1470 LOCATE 2+(qa-l\-4,5+(qb-l)
3:P 
RItH' "; 
1480 pl>.=pl%+1 :IF pl:.>1 THEN pl:
=\1 
1490 RETURN 
15ea REM 

 plntd graplcoc en lac e 
oordQnadas corre
tas +
 
1510 t=ASCCt$¡-64:s=ASCCs$)-48 
1520 f a'
=0 
1530 LOCATE 2+(s-1 "'4,5+( 1-1 )*3 
1540 IF ob%(t,s)=0 THEN fa%=1 :PRINT 
CHRS(7) :RETURI, 
1550 REM .
 mIra ..1 conte-nldo de- la 
matr i z p
rCi 'Jer qUE- Jug'Jeteo esta a 
] 1 I "':
 
1560 lF ob%Ct,sj-1 THEN PRJNT aaS 
1570 IF ob%'t,s) 2 THEN PRINT ab$ 
1580 IF ob%(t,sJ=3 THEN PRINT ac$ 
1590 IF ob%(t,s)=4 THEN PRINT ad$ 
1600 IF ob%'I,sJ-5 THEN PRINT a
$ 
1610 IF ob:.<l,s)=6' THEN PRINT afS 
1620 IF ob%(t,
)=7 THEN PRINT ag$ 
1630 !F ob%(t,s) 8 THEN PRINT ah$ 
1640 IF ob%(t,s) 9 THEN PRINT ai$ 
1650 IF ob%(t,s) 10 THEN PRINT ajS 
1660 lF ob%(t,s)=11 THEN PRINT ak$ 
1670 !F ob%(t,s)=12 THEN PRINT alS 
1680 IF ob%(t,s) 13 THEN PRINT am$ 
1690 IF ob
Ct,s) 14 THEN PRINT anS 
1700 !F ob%(t,s)=15 THEN PRINT aoS 
1710 !F ob%Ct,s)=16 THEN PRINT apS 
1720 IF ob:";Ct,s) 17 THEN PRINT aqS 
1730 JF ob%(t,s) 18 THEN PRINT arS 
1748 IF ob%(t,s)-19 THEN PRINT a
$ 
1750 !F ob%(t,s)=20 THEN PRINT atS 
I 7
.0 RETURN 
1778 REM 
. ti tulos e- ¡n
truCCJDn
S 


,,- 


1780 CLS:WINDOW 112,4,36,1 ,3:PEN 112, 
3:PAPER 112,1 :CLSII2 
1790 LOCATE 112,6,2:PRINTII2, 'Ce-dric 
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y los jugu..tes perdidos" 
180B LOCATE 6,6:PRINT"Un jU"QO para 
AmstrGd CPC464/664, 
1810 LOCATE 11 ,8:PEN 2:PRINT"por S 
tl?l,}e 1;.1, Lucas Ol 
1820 LOCATE 2,10:PEN 1 :PRINT'C
dr'c 
ha p..rdido su
 jugue-te-s y no .s.abed 
onde- encontrarlcl
, I 
1 830 PRINT"Pue-d
s a)'udarl f!-? Estan .. 
scondidos €'C, ..1 tabl..ro ,
l cual ..s 
t a e t I q U e t ado de I a Aa I a E y de 1 1 
c.l 8." 
1840 PRINT"T
cle-ando la
 coordenada 

 (numero prime-ro) podr"as ver que 
j u gu E' te h ay e rJ u n a e a silla. .. ; 
1850 PRINT"Si los dos Jugu
t
s son 
el mIsmo, obten-dras un punto y amo 
o
 p
rman
c..ran e-n la pantalla.' De 
lo co
trar 10, se borraran." 
1860 GOSUB 1890 
1870 RETURN 
1880 REM 

 sonido 
* 
1890 RESTORE:FOR 
=l TO 6 
1900 READ d:SDUND 1,d,10 
191(1 rlE;(T _ 
1920 DATA 478,478.426,478,358,426 
1930 RETURN 
1940 REM 'Hi ac tua liza pun tuac J on I 
 
i se ha acertado ** 
1950 IF pl%=0 THEN sl%=sl%+1 ELSE . 
2%=sZ/'+ 1 
1960 RETURN 
1350 t$=UPPERS't$):IF ASC(tS)69 OR 
ASC(!SJ(65 THEN 1340 
1360 PRINTlll,t$ 
1370 GOSUB 1510 
1380 IF fa%=1 THEN CLSlll :GOTO 1300 
:REM ** mira si Yc.. se e-lIQlc, ante: 


"* 


1390 q=ob%(t,s):qb-t:qa=s 
1400 IF qa pa AND qb=pb THEN PPINT 
CHR$(7):GOTO 1300 
1410 IF p-q THEN CLSlll:J% j'
+I:ob:
( 
qb,qa)-0:ob%(pb,pa)-0:GOSUB 1890:GO 
SUB 1950:RETURN 
1420 REI1 *" fIC, d
l turr,o ., 
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Segunda parte de la serie Animación en Basic para Amstrad 


A NIMACION 
EN COLOR 


Anteriormente vimos cómo LOCA TE y PRINT pueden utilizarse 
para hacer animaciones sencillas" Ahora vamos a concentrarnos 
en el tipo de animación que el usuario puede obtener utilizando 
el comando INK. 


amo usted ya sabe, el CPC 
464 tiene tres modos gráficos dife- 
rentes -0,1 y 2- cada uno de ellos 
con sus características propias. Por 
ejemplo, MODE O puede tener has- 
ta 16 colores diferentes al mismo 
tiempo, MODE 1 tiene cuatro colo- 
res y MODE 2 tiene dos colores. 
Es, precisamente, el muestrario de 
colores disponibles. Cada uno pue- 
de utilizar cualquier combinación de 
los 27 colores expuestos en la Tabla l. 
No obstante, a pesar de que pue- 
da utilizarse cualquiera de los 27 co- 
lores en cada uno de los modos, el 
máximo número de colores simultá- 
neos en la pantalla es constante pa- 
ra cada modo. Lo que se hace es ele- 
gir 2, 4 ó 16 colores de una paleta 
de 27. 
y no sólo puede elegir qué colo- 
res tiene en pantalla, sino que pue- 
de intercambiar cualquier color por 
otro. Por ejemplo, si tiene un círculo 
azul en la pantalla puede cambiarlo 

 rojo con un sencillo comando Ba- 
SIC: 
IN K X, Y 
donde X es el número del fondo o 
de la pluma (paper o pen) que se va 
a cambiar (azul en el ejemplo) e Y es 
el nuevo color (rojo en el ejmplo). 
Todos los programas de lo ejem- 
plos de este mes utilizan MODE O, el 
modo de los 16 colores. 
Advertirá que al final de los tres 
primeros programas están los co- 
mandos. 
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MODE1 
CALL &BC02 
PEN 1 
PAPER O 
END 


Pulsando la barra espaciadora, to- 
dos los colores vuelven a su estado 
original al conectar el ordenador. Es- 
to es nacesario porque los progra- 
mas de los ejmplos cambian los co- 
lores (tanto de PEN como de PAPER) 
al color del fondo, azul. Yescribien- 
do en azul sobre fondo azul ¡hace 
muy difícil la lectura! 


Programa uno 


El programa I salva la situación. 
Coloca 10 bolas escritas con diferen- 
tes plumas (PEN) en medio de la 
pantalla. Lo hace con las líneas 60 a 
110. 
Sin embargo, si se para el progra- 
ma en la línea 110 nunca podrá ver- 
las. Cada bola es invisible porque la 
línea 80 cambia de color en las plu- 
mas 1 a 10 (PEN 7 a PEN 7 O) hacién- 
dole azul (INK 7). Las bolas se dibu- 
jan una a continuación de otra, la 
primera con PEN 1, la segunda con 
PEN 2 y así sucesivamente. 
Como cada una de estas plumas 
(PEN) se ha rellenado con tinta azul, 
y puesto que el color del fondo es 
azul, no aparecerá nada en la pan- 
talla. Las bolas se confunden con él, 
pero, creed nos, están allí. 
Las líneas 120 a 190 son las res- 
ponsables de la animación. La llevan 
a cabo enseñando una bola, escon- 
diéndola y enseñando la siguiente. 


"O 
::. 

 
-; 


, .. 


La variable «numbola» contine el 
número de la bola que está saliendo 
en pantalla, y su valor está compren- 
dido entre 1 y 10. 1 es la que está 
colocada más a la izquierda y 10 la 
que está más a la derecha. 
El programa selecciona la prime- 
ra bola inicializando la varialbe 
«numbola» a 1. Esta es la bola, in- 
dicada por la variable «numbola», 
cuyo color cambia a magenta. Y 
ocurre porque la tinta de PEN 1 se 
cambia por tinta magenta, INK 1,4. 
Cuando la bola fue dibujada ori- 
ginal con la pluma 1 (PEN 7) se re- 
llenó con tinta azul. Ahora la línea 
140 la rellena con tinta magenta. El 
resultado es que vemos una bola ma- 
genta. 
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Dese cuenta cómo el bucle forma- 
do por las líneas 120 a 160, todas las 
demás bolas están a la derecha y con 
el mismo color del fondo, azul. 
Sólo se cambia la tinta en la prime- 
ra pluma M(PEN) y por lo tanto sólo 
la primera bola aparece en magen- 
ta. 
La línea 150 proporciona un cor- 
to retardo y la línea 170 comprueba 
si se está pulsando la barra espacia- 
dora. Cuando esto ocurre el progra- 
ma termina y los colores se restable- 
cen (líneas 200 a 230). Si no es así 
la línea 180 selecciona la siguiente 
bola que aparecerá, incrementando 
en «numbola». Esta nueva bola es- 
tá colocada a la derecha de la ante- 
rior. 
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La línea 190 comprueba si la an- 
terior bola está en la última posición 
de la fila. Si es así se comienza de 
nuevo por la primera bola cambian- 
do «numbola» a 1 (GOTO 720). 
Recuerde, sólo se ve una bola en 
la pantalla, debido al bucle FOR... 
N EXT. La línea 140 se asegura de 
ello haciendo magenta la bola co- 
rrespondiente al valor de «numbola» 
y volviendo azules todas las demás. 
Si lo piensa, sólo una de las bolas 
necesita cambiarse desde el magen- 
ta al color del fondo. En cualquier 
caso sigue siendo una programación 
sencilla. 
El resultado final de todo esto es 
una bola cruzando la pantalla de iz- 
quierda a derecha. En realidad, es- 
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tá viendo diez bolas, una detrás de 
otra, en lugares ligeramente despla- 
zados. Como las bolas hacen un 
flash en magenta y vuelven al color 
del fondo una tras otra, los ojos se 
engañan y parece que solo hay una 
bola. 
¡Es bastante curioso considerar el 
hecho de que la parte de animación 
se realiza sin la instrucción PRINT en 
la pantalla! 
Para mover la bola de derecha a 
izquierda cambie las líneas siguien- 
tes: 


120 numbola = 10 
180 numbola = numbola-1 
190 I F numbola < TH EN GaTO 120 
ELSE GOTa 130 
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Tabla 1 


Negro 
Azul 
Azul brillante 
Rojo 
Magenta 
Malva 
Rojo brillante 
Púrpura 
Magenta brillante 
Verde 
Cyan 
Azul cielo 
Amarillo 
Blanco 
Azul pastel 
Narania 
Rosa 
Magenta pastel 
Verde brillante 
Verde mar 
Cyan brillante 
Verde lima 
Verde pastel 
Cyan pastel 
Amarillo brillante 
Amarillo pastel 
Blanco brillante 


tr" . 


Colores de tinta 


Programa dos 


El programa II usa la instrución 
IN K de forma parecida al progama 
1. En este caso cambia el color de los 
sectores de un círculo. El resultado es 
un sector que gira -más bien pare- 
ce un molino de viento con un solo 
aspa. 
Las líneas 50 a 100 dibujan un cír- 
culo en medio de la pantalla. El cír- 
culo está formado por 10 sectores, 
cada uno de un color diferente. Los 
sectores numerados dell 0110 están 
colocados en el sentido de las agu- 
jas del reloj en intervalos de 36 gra- 
dos desde la parte superior del cír- 
culo. La variable «numsectorl) indi- 
ca cuándo debe aparecer en panta- 
lla cada uno de los 1 O sectores -al- 
go parecido a «numbola» en el pro- 
grama 1. 
Todos los sectores restantes se 
cambian al color del fondo, azul. 
La línea 110 inicializa «numsector» 
al, coloreando el primer sector, y 
las líneas 120 a 140 devuelven a to- 
dos los sectores el color del fondo ex- 
ceptuando el indicado por «numsec- 
tor» . 
La línea 150 examina la barra es- 
paciadora. Si se pulsa finalizará el 
programa. 
La línea 160 aumenta el número 
de sector que ha aparecido en pan- 
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talla. La línea 170 comprueba si han 
aparecido los 10 sectores. Si han 
aparecido, se selecciona el primero 
otra vez y el programa salta a la lí- 
nea 110. Si no han aparecido el sal- 
to se hace a la línea 120. 
Como se puede ver el resultado es 
impresionante. 


Programa tres 
Teclee el programa II1 y pulse 
R U N. Esta es otra demostración del 
intercambio de colores de la paleta. 
Queremos decir que cambiaremos 
los colores de las tintas (1 N K) en las 
las plumas (PEN). 
El programa dibuja una gran es- 
trella con pluma (PEN) l. Después di- 
buja otra estrella, esta vez con PEN 
2, gira dos grados en sentido de las 
agujas del reloj. Esto se repite hasta 
dibujar 10 estrellas diferentes, utili- 
zando una pluma diferente para ca- 
da una de ellas. 
Cuando se ha completado el dibu- 
jo las estrellas aparecen en pantalla 
utilizando el mismo procedimiento 
que en los programas I y 11. 
Las tintas rellenan cada pluma por 
turno simultaneando entre las tintas 
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4 Y 1 -esto es, entre el magenta y 
el color del fondo. 
Le dejamos que descubra cómo 
funciona el programa. Es muy simi- 
lar a los otros dos, de modo que no 
encantará ninguna dificultad. Una 
vez metido de lleno en el programa, 
puede hacer que las estrellas giren 
en sentido contrario agujas del reloj. 


Programa cUCltro 


Las funciones seno (SIN) y conse- 
no (COS) usan mucho tiempo calcu- 
lando sus resultados. Los mismos cal- 
culas usando estas tediosas funciones 
se han repetido en el programa ori- 
ginal. Por eso es tan lento. 
Este problema se ha salucionado 
en la línea 100 que es la principal 
responsable del aumento de veloci- 
dad. 
y esto es todo por el momento. Le 
hacemos unas sugerencias: ¿Por qué 
no intenta cambiar los programas I 
a III? ¿Debe ser siempre azul el co- 
lor del fondo? ¿Deben ser siempre 
magenta las bolas? ¿Y por qué no tie- 
ne dos bolas de diferentes colores 
yendo en sentidos contrarios? 
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30 REM .+
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4@ 01'1 ERROR GOTa 200 
50 
10['E 0 
6@ LOCATE 1.14 
70 FOR x-l TO 10 
80 1 NK x. 1 
911 PE
J x 
1(10 PRINT C-HFH:31) ,CHFh::2', 
j j 0 NEXT 
120 nlJrr.bol 
=1 
130 FOR bol
=l TO 10 
140 ¡ F bol 
=n'Jmbe.1 
 THEN II'I.. be.) 
, <1 
ELSE INK bola.l 
150 FOR r
t
rdD=1 TO 10: NE)T r
t
r 
do 
1 
.O NEXT bo I 
 
17@ IF INKEY(47)-0 THEN GOTO 200 
1Se numbola numbQla+l 
190 IF numbol
 10 THEN GOTa 120 ELS 
E GOTa 130 
200 MOOE 1 
210 CALL 8<BC02 
220 PEN 1 
230 PAPER 
240 END 
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4.., mi ERROR GOTa 180 
50 DEG 
60 
1DC'E o 
70 FOR ongulo=O TO 359 
80 
10,}E 320,20 o 
°0 DRAW 200*SINCangulo)+320,175*COS 
(..,g'J 1 o) +200. I
lT( ",ngu 10/36) + 1 
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100 NEXT 
110 num-=ector 1 
120 FOR seo tor-1 TO 10 
130 IF 
.etor=numseetor THEN INK s
 
ctor',4 ELSE INK 
eetor,1 
140 NEXT s
etor 
150 IF INKEY(47) 0 THEN GOTa 180 
1¿0 nums
ctor=num$ector+l 
170 IF nums
etor)10 THEN GOTa 110 E 
LSE GOTa 120 
180 MODE 1 
190 CALL &8C02 
200 PEN 1 
210 PAPER o 
220 END 


10 REr'l 
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200 MODE 1 
210 CALL &BC02 
220 PEN 1 
230 PAPER o 
240 END 


10 QEM ¥¥
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4 o 11DC'E o 
50 C,,"LL &8C02 
<.
 C'ECi 
7
 Ci
'!Ci;I, 3:::0 ,200 
80 
I
")E 0.100 
';0 FOR j'. (1 TO 26£1 
100 s '3IN( 1%' :e=COSC ,'.) 
1 10 PLCiT . *15(' . e -150 . ,% MOO 15+1: PL 
OT s*75,c.150:PLOT 
*15
.e*75 
12
 NEYT 
13
 FOF' I"=
 TO 15 
140 INK i:
,
 
1 50 "IEXT 
1e,(1 L'JHILE 1=1 
170 FOR i%=1 TO 15 
18(' ! 
IK i'
. 26 
j?0 FCiR x-I TO 100:NEXT 
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210 NEXT 
220 LoIE
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40 ON ERROR GOTD 200 
50 DEG 
60 MODE o 
70 FOR fuga=O TO 9 
80 FOR angulo=fuga-: TO 359 STEP 20 
90 MOVE 320,200 
1@@ DRAW 200-SINCangulo'+320.175-CO 
SC
ngulo)+200,fuga+1 
110 NEXT angulo 
120 NEXT fuga 
130 num

trell« 1 
140 FOR 
strella-l TO 10 
150 IF 
strell«-num.str
ll. THE
, Irl 
K estrell
.4 ELSE 1/./1<' ..-tr
11
.1 
160 NEXT 

trel l. 
17
 IF INKEY(47)=0 THEN GCiTO 200 
180 numestI""E'lla-nurTt€'str€'11
+1 
190 IF numestr..ll.>10 THE
I GOTa 13') 
ELSE GOTO 140 
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A lo largo de esta serie de artículos hemos intentado revisar 
y aprender, paso a paso, unas cuantas técnicas y 
particularidades del código máquina" 
Sabemos cargar y manipular registros, llamar a subrutinas 
de máquina desde un programa, indexar zonas de memoria 
usando los registros dobles y un montón de cosas. 


al vez sea el moment. de 
hacer un alto en el aprendizaje de 
nuevas técnicas, practicar exha sti- 
vamente lo que ya sabemos, hosta 
dominarlo, y hacer uso de las herra- 
mientas que todo programado en 
:::ódigo máquina-d p . - -.- 
Nos referimos, en primer lugar, al 
cargador Hexadecimal que denomi- 
namos Hexer, y un programa en- 
samblador que veremos posterior- 
mente. 


Potenciar el Hexer 


Hexer apareció por vez primera 
en AMSTRAD Semanal número 3 y en 
este artículo vamos a completarlo 
para que podamos salvar y cargar 
código máquina en cinta/disco. 
Para ello, tenemos el programa 
número 1, que muestra las líneas que 
hay que añadir al Hexer original. 
El ensamblador (programo 3) tam- 
bién se unirá al Hexer de la siguien- 
te manera: 
1. Cargue el Hexer original 
(LOAD «HEXER»). 
2" Introduzca el programa 1. 
3" Renumere el programa com- 
pleto a partir del número de línea 
10000 (RENUM lOOOO). 
4" Sálvelo como ASCII (SA VE 
«HEXER», A. 
5. Limpie la memoria (NEW). 
6" Teclee el ensamblador (progra- 
mo número 3). 
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7" Con el ensamblador en memo- 
ria, haga un merge con el Hexer des- 
de cinta/disco (MERGE «HEXER»). 
8" Teclee el programa número 2, 
respetando los números de línea. 
A estas alturas tenemos en la me- 
moria del Amstrad el Hexer modifi- 
cado, el ensamblador y el programa 
«menú» (número 2) juntos. 
Queda solamente hacer una pe- 
queña modificación, esto es, cambiar 
todas las referencias a &3000 ó 3000 
por &8000 ó 8000, en la parte del 
programa correspondiente al Hexer, 
con idea de permitirles a ambos que 
coexistan en memoria. También se- 
ría conveniente cambiar &2FF8 ó 
2FF8 por &7FF8 ó 7FF8. 
Una vez hechas estas modificacio- 
nes, salve el conjunto en cinta/disco 
de forma normal y el programa com- 
pleto puede utilizarse. 


No más ensamblar a 
mano 
Vamos a ocuparnos ahora del en- 
samblador. 
Un programa en lenguaje máqui- 
na es una serie de números escritos 
en el sistema binario: bien. Las series 
de unos y ceros no tienen ningún sen- 
tido para las personas: no tan bien. 
Por eso se creó el lenguaje ensam- 
blador, cuya función es, mediante el 
uso de mnemónicos, facilitar la pro- 
gramación. 
Recordad: tiene más sentido LO H, 
&2A que &26, &2A, y aún tendría 
más sentido si pudiéramos decir: 
.puntos = &2A 
LO H, puntos 



mediante un ensamblador, sí pode- 
mos porque estos programas se en- 
cargan de la ingrata tarea de tradu- 
cir menmónicos, texto a números he- 
xa y a la postre a binario, para que 
el ordenador pueda entenderlos. 
Nuestro ensamblador está escrito 
íntegramente en Basic, por lo que 
ocupa la parte inferior de la memo- 
ria. Es conveniente, por tanto, que el 
cód.igo máquina ocupe la parte su- 
penor. 
HIMEM puede variarse hacia aba- 
jo para hacerle sitio si es necesario. 


,. 


Código fuente y código 
obieto 


El código en lenguaje ensambla- 
dor, conocido como código fuente, 
puede salvarse en cinta/disco con o 
sin el propio programa ensambla- 
doro 
Una vez ensamblado, el código 
objeto que se crea puede ser llama- 
do desde Basic mediante una instruc- 
ción CALL, seguido del número, en 
hexa o decimal, a partir del cual se 
ensambló el código fuente. 
Todas las instrucciones y etiquetas 
de éste deben ir colocadas en senten- 
cias DATA. Sólo se permite una ins- 
trucción por línea y pueden tener 1, 
2 ó 3 partes. 
El tipo de letra usado deben ser 
mayúsculas, con un espacio entre la 
primera y segunda parte (si la hay), 
y una coma entre las partes 2 y 3 (si 
la hay). No se permiten espacios ex- 
tra. 
Las etiquetas deben ir escritas en 
minúsculas. 
Un ejemplo: 
RET instrucción con 
una so/a parte¡ 
DJNZ Loop 2 partes separadas 
por un espaCIO¡ 
LD A, (IX + 4) 3. partes: un espa- 
CIO, una coma. 
Para reservar espacio con HI- 
MEM, se usa MEMORY de la forma 
habitual: 
10 MEMORY &7FFF: REM el códi- 
go objeto a partir de &8000. 
El ensamblador cumple su función 
en dos pasadas y, mediante la varia- 
ble printer, podemos dirigir su sali- 
da a la impresora. Si dicha variable 
es igual al, la impresora se activa¡ 
si es igual a O, se desactiva: 
20 printer=O: REM impresora 
desactivada 
La primera instrucción de código 
1 fuente en las DATAS debe ser ORG, 



ódigp 
máquina 


de ORiGen, seguida de un número: 
30 DATA ORG &8000 
en donde se colocará el código má- 
quina ensamblado. 
Al definir una etiqueta, debe ir 
precedida por un punto, como en: 
30 DATA .puntos=5 
y puede hacerse igual a una direc- 
ción de memoria determinada según 
el procedimiento del programa 4 (lí- 
nea 70). 
También se puede asignar a una 
etiqueta un valor positivo o negati- 
vo mediante el signo igual (líneas 20 
y 30). 


20 DATA .print= &BB5A 
30 DATA .offset= 5 
60 REM 
70 DATA .Ioop 
80 DATA LD, (IX+offset) 
90 DATA CALL print 
95 DATA J R, loop 


Programa 4 


100 DATA 
110 DATA 
120 DATA 
130 DATA 
140 DATA 
Programa 5 


LO A, 27 
LD B, & 1 B 
LD C, %11011 
.number = 27 
LD D, number 


Los números pueden ser en deci- 
mal, hexadecimal o binario, como en 
el programa 5. 
El programa 6 permite observar 
cómo se usan los directivos de otros 
ensambladores DEFB (DEFine Byte), 
(DEFW, define palabra, del inglés 
DEFine Word), DEF$ (para colocar 
cadenas de caracteres) y DEFS (DE- 
Fine Storage, define almacenamien- 
to de datos). . 


150 DATA 
160 DATA 
170 DATA 
190 DATA 
200 DATA 


DEFB &FF 
DEFW number 
DEF$ «Assembler» 
DEF8 150 
.number= 1000 


Programa 6 


Podemos incluir comentarios en el 
código fuente, en líneas que comien- 
cen con apóstrofe (tecla 7 +Shift). 
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Si arrancamos el ensamblador, su- 
puesto que todavía no se ha unido 
al Hexer, el programa se detendrá 
con el mensaje «Origen?», indicado, 
bien que no hay código fuente en 
DATAS, bien que la primera de ellas 
no es un ORG. 
Teclee AUTO e introduzca las lí- 
neas de ensamblador, procediéndo- 
las con la palabra Basic DATA (use 
la tecla ENTER pequeña cuando sea 
necesario teclear Enter). 
Creemos que sería una buena idea 
introducir todos los listados en en- 
samblador (con menmónicos) dados 
en anteriores artículos, comprobar 
que funcionan y familiarizarse con el 
ensamblador. 


Salvar y grabar 
código fuente 


El código fuente puede ser graba- 
do con el propio ensamblador o és- 
te ser borrado con DELETE y enton- 
ces salvar el resto. 
Para recuperarlo, basta con Load 
el ensamblador y luego Merge con 
el código fuente grabado anterior- 
mente. 
Para salvar el código objeto gene- 
rado, se puede hacer algo parecido 
a: 


save «código», b, &8000, & 100 
en donde los 2 últimos números indi- 
can la dirección de ensamblado (la 
de ORG) y la longitud en bytes. 
Las subrutinos del programa están 
separadas para mayor claridad. Co- 
mienza en la 5000 para dejar sitio a 
las líneas DATA de código fuente, y 
el programa se escribió en Mode 2, 
por lo que tendrá más sentido hacer- 
/o funcionar en ese modo. 
Los tipos de instrucciones, los mne- 
mónicos, se colocan en una matriz y 
se mira a ver si concuerda con la pri- 
mera parte de /0 instrucción, textl$. 
Si es así, el programa bifurca a la 
rutina adecuada mediante ON GO- 
SUB. 
Los nombres de las etiquetas se 
guardan en label $(50) y su valor en 
valúe (50). 
Algunas instrucciones son ensam- 
bladas por /0 misma rutina, debido 
a la similitud binaria de su código de 
operación, como los BIT, RES y SET. 
Por lo demás, el programa está 
bastante bien estructurado, y pensa- 
mos que, una vez tecleado y com- 
probado, será de gran utilidad al 
programador. No queremos ensam- 
blar a mano nunca más. 


159 
155 
156 
160 
170 
69 
180 b - VAL<b$) : ON b GOSU8 210.40 
9,550,350.290,709,890 
700 INPUT "Dlroccion do comlonzo 
start$ 
719 IF c.tarU = '" THEN ctar tt. 
088 ' 
720 star t VAL< "&" + ",tar t$ ) 
730 INPUT 'Nombro":namo$ 
749 IF namo$ =" THEN GOTO 739 
759 INPUT 'LongitoJd"; l.nc¡th$ 
760 IF I.ngtt,$ "THEN ior,gth$ _ 
, 489" 
770 I.nath - \.'AL< "&" + ' HI 9th$ ) 
789 SAVE namo$.b.start.lonath 
799 RETURN 
8BS INPUT I Nombre'" ¡nam¡:¡$ 
819 LOAD namo$ 
829 RETURN 


PRINT "5. FI n del pr'oar..ma' 
PRINT '6. Salvar codlQo" 
PRINT 7. Cargar codlgo' 
b$ = INKEY$:IF b$-' , GaTO 160 
IF INSTRC"1234567",b$)-0 GOTO 1 


4009 REM Programa 2 
4918 MODE 1 :INK 8.0:80RDER 8 
4028 LOCATE 18.5:PEN 3:PAPER 1 :PRIN 
T"Ensamblado
 y Hexer" 
4039 LOCATE 15.10:PAPER 9 
.4949 PEN 1 :PRINT" 1. ";:PEN 2:PRINT 
Hexeor" 
49Se LOCATE 15,12 
4069 PEN 1 :PRINT' 2. '; :PEN 2:PRHH 
EnsambladClr I 
4978 LOCATE 15.16 
4980 PEN 3:PRINT' Pul.. ¡ ° 2' 
4890 IF INKEY(64»-1 THEN CLS:GOTO 
10e09 
4190 IF INKEY(65) -1 GOTa 4999 
4110 PEN 1 


5900 RE
I =-- 


- en sarr.t, I ador 


"3 


7359 
5249 IF byte2)-¡ THEN x=b>t02:GOSU8 
7350 
5250 IF byte3)-( THEN x=b>t03:GOSU8 
7350 
5260 IF byte4)-! THEN x=byt04:GOSU8 
7350 
5270 PEN 2:PRINT 1I1,.to.TA8(29):to, 
tl$; :IF textr$-'" THE
J PRINT IIllsto 
EL SE PRINT 111 I c.to. '. '; textr$ 
5289 WEND 
5299 NEXT pass 
5380 PEN. 1 
5319 END 
5328 
5330 REM = Inicial Iza 
5349 DIM type$(69),label$(50).valuo 
(58) ,cond$(7) 
5350 RESTORE 7810:FOR ;%=9 TO 69:RE 
AD type$( 1%) :NEXT 
5369 RESTORE 7839: FOR I '
=9 TO 7: REA 
D cond$(I',J:I'JEXT 


5018 REM 8y R.A.Waddioue 
5020 REM(c)Amstrad Semanal 
5039 MODE 1 :INK 0,9:BORDER 0 
5040 GOSU8 5338:'lnlcial,zacion 
5058 FOR pass 1 TO 2 
5860 IF pass=2 AND print.r=1 THEN 1 
Isto=8 
5970 CLS:RESTORE:READ toxtl$ 
5088 IF LEFT$Ctextl$.3)<) ORG" THEN 
PRINT Origen ?":END 
5890 x$-MID$(textl$,INSTRCtoxtl$." 
')+!):GOSUB 7578:pc-x 
5188 PRINT IIllsto. 'RAW Assembler 
I. 
3" :PRINT 111 i sto:PRINT 111 I sto,' F'a"o. 
. . " ; p a ss ; TAB C 20) : t e x t 1 $ : PR 1 NT 11 1 1st 
° 
5110 WHILE textl$O"END' 
5128 PEN 1 :READ textl$:textr$='" :IF 
LEFT$(\extl$.D="" THEN PRINT 1111 
sto,TA8(28)MID$(textl$,2):GOTO 5129 
5130 PRINT IIllsto,HEX$C"c);":' ::PEN 
3 
5148 byte! -1 :byte2--1 :byt.3--1 :byt 
e4--( : j ndex=-1 
5150 1% -1 
5160 FOR J%=8 TO 69 
5170 IF INSTRCtextl$.type$CJ%» 1 T 
HEN i% j% 
5180 NEXT 
5198 IF '%=-1 THEN PRINT:PRINT toxt 
l$;'"??":END 
5298 IF i%C36 THEN ON i% GOSUB 6860 
,7010,7230,6468,7110,6168,6380,6500 
,6428,6420,6420,6428.6380.6380,6760 
,6388,5988.6380.5900,6388,6380,6819 
,6860,6760,6429,6420,6420,6420,6269 
,6210,5598,6420,6420,6428,6420 
5218 IF i%>35 THEN I%=,%-35:0N '% G 
OSU86428,6389,6510,6420,6420,6118, 
6428,6420,5520,5529,7130,6340,6420, 
6428,6650,6380,6380,6648.6428,6678, 
6388,6660,6380,6428,5490,6998.6380, 
7149,6600,6629.6638.6489,6490.5420 
5228 IF index)-l THEN x-Index:GOSUB 
7358 
5230 IF bytel>-I THEN x-bytol :GOSUB 
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, 
1- 
I 
J 
j I 


53
B 
EY 139,CHR$/13)'"OATA 
5380 f<'EY 138. CHR$! 1 3)+ 'REM 
5390 numJ 0 
5400 RETURN 
5410 
5420 REM === def =-= 
5430 IF 
IID$(textl$.4, 1 )=' S' THEN x 
f=MIDf(
extJf.6):GOSUS 7570:pc-pc+x 
:RETURN 

440 I F MI 0$ (t e x ti $ ,4. 1 ) =' $" THEN F 
OR J:,=[NSTP( tex t 1 $.' " ) + 1 TO LEN( te 
xtl$)-1 :POKE pC,ASC(MJO'f( textl$.J%) 
) :pc=pc+l :NEXT:RETURN 
5450 x$-MIOf(t
xtl$.INSTR(t
xtl$.' 
, ) + 1 ) : GOSU8 7570 
54
,0 IF MIC'$(tedl$.4,1) 'B' THE
¡ b 
yt
l=x EL SE GOSUS 7480:byt
I=lb:byt 

2 hb 
5470 RETURN 
5480 
5490 REM ==- r'st -- 
5500 x$ MIO$(textl$.5):x VAL("&'+x$ 


¡ 


I 
J 


)
8:b.tel-VAL('&Xl1 'SIN$(x,3)+ 111 
') :RETURN 
5510 
5520 REM - pu-h/pop == 
5530 x$=RIGHT$(textl$,2) 
554« IFx$-'IX" ORx$="JY" THEN 'nd 

x -&OO>(x$ '[X'i-&FO
(x$ "IY"):x$ 
HL" 
5550 IF x$ "AF" THEN bytel -&F5
(IN 
STR(textl$, 'U'»0)-&Fl"(INSTR(textl 
$ . " O" ) ) 0 ) : RET URN 
5560 GOSUB 7730:IF INSTR(textl$.' PO 
P') THEN bytel=VAL('&XII"+x$+'0001" 
) ELSE bytel=VAL("&Xll '+xU"0101") 
5570 RETLIRN 
5580 
5590 RE
I Id 
5600 PEAO textr$ 
5610 1 F INSTR<tex t lf." IX' ) +JNSTR( te 
xtr$, 'IX') THEN index &00 
5620 IF lNSTR(textl$. 'IY")tll'¡STR(te 
xtr$,'IY) THEN ,ndex &FO 
5630 1 F INSTR<t
x t I $." (") + JNSTR( tex 
tr$," (' )-'0 GOTO 5810: no bracKe ts 
5640 IF INSTR<textl$,"(') GOTO'5720 
: ' 1 
 f t br ac K 
 t 
5650 lF textr$- (HL)" THEN x$-RIGHT 
$(textl$,I)iGOSUB 7690:byte¡-VAL("& 
X01 "<x$'"110') :RETURN 
5660 x$=textr$:IF x$="(BC)" OR x$ " 
(DE)" THEr, bvtel -&A
(x$ '(BC)")-&1 
A
(x$-' <DE)") :RETURN 
5670 lF INSTR(t
xtl$, 'HL")+INSTR(te 
xtl$,"I") THEN bytel=&2A:x$=MI0$(t
 
xtr$,2,LEN(textr$)-2):GOSUB 7570:GO 
SUB 7480:byt
2=lb:byte3 hb:RETURN 
5680 IF INSTR(textr$,"I") THEN'x$=R 
IGHT$(t
xtl$,I):GOSUB 7690:bytel=VA 
L( '&X01 'tx$t"110' ):x$ r1IÓ$(textr$,5 
,LEN(textr$)-5):GOSUB 7570:byt
2 x: 
RETURN 
5690 IF LEN!textl$)-4 THEN bytel &3 
A: x$ MI 0$( tex tr$, 2, LEN! tex tr$) -2) : G 
OSUS 757e:GOSUB 7480:byte2-1b:byte3 
hb:RETURN 
5700 bytel-&EO:x$=RIGHT'f(textl$,2): 
GOSUB 7730: byte2=VAL( '&Xe 1 '+x$+' 101 
1"):x$ MJO$(textr$,2,LENCtextr$)-2) 
:GOSUB 7570:GOSUB 7480:bvte3-lb:byt 
e4=hb:RETURN 
5710 : 
5720 lF LEFT$(textr$,I)= l' OR text 
r$=' HL" THEN bytel=&22:x$=MID$(text 
1$,5,LEN(textl$)-S):GOSUS 7570:GOSU 
B 7480 :byte2=1 b:byt
3=hb:PETURI
 
5730 IF INSTR(textl$, '(1") THEN GOT 
O 5790 
5740 x$ MI01o(textl$,5,1):IF x
 'S' 
OR X$-"O' THEN bytel--&2*(x$='B')-& 
12*(x$ "O") :RETURN 
5750 x$ t
xtr$:IF x$ "BC" OR x$-"OE 
" OR x$-'SP' THEN bytel-&ED:GOSUB 7 
730:byte2 VAL("&X01"+x$+'0011"):x$- 
MIO$( textl$,5,LEN(textl$)-5) :GOSU8 
7570:GOSUB 7480:byte3=lb:byte4-hb:R 
ETURN 
5760 ]F JNSTR(textl$, H") 0 THEN by 
tel &32:x$ MIO$(textl1o,5.LEN(textl$ 
)-5):GOSUB 7570:GOSUB 74S0:byte2 lb 
:byte3=hb:RETURN 
577e x$-textr$:IF x$)-'A' ANO x$( " 
L" THEN GOSUB 7690:byt
I-VAL("&X011 
10"+x$):RETURN 
5780 bytel-&36:GOSUB 7570:byte2=x:R 
ETURN 
5790 JF t
xtr$) "A" ANO textr$! "L" 
THEN x$ t
xtr$:GOSUB 7690 :b; tel ,lA 
L( &X01110"tx$):x$ MrO$(t
xtl$,8,LE 
N(textl$)-8):GOSUB 7570:byt
2=x:RET 
URN 
5S00 byte¡-&36:x$ MJO$(t
xtl$,B.LEN 
(textl$)-B):GOSUS 7570:byte2 x:x$=t 
extr$:GOSUB 7570:byte3 x:RETURN 
5S10 IF RJGHT$(textl$.!)='J" OR tex 
tr$ "J" THEN bytel=&EO:byte2 -&57*( 
textr$-'J )-&47*(textr$-'A"):RETURN 
5820 IF RJGHT$ltextl$,I)="R" OR tex 
tr$ "R" THEN bytel
&EO:byte2 -&5F*( 
textr$-"R")-&4F*(textr$-"A"):RETURN 
5830 IF INSTR(textl$,"I") THEN byte 
1-&21:x$ textr$:GOSUB 7570:GOSUS 74 
S0:byte2 Ib:byte3 hb:RETURN 
5840 IF textr$-"HL" OR LEFT$(textr$ 
,1)-" l' THEN byte 1 &F9: RETURN 
5850 JF MJD$(textl1o,LEN(textl$)-I,1 
»" " THEN x$-RIGHT$(textl$,2):GOSU 


B 7730:bytel VAL<"&X00"+x$+"0001 '): 
x$ t
xtr$:GOSUB 7570:GOSUB 74S0:byt 
e2 lb:byte3-hb:RETURN 
5B60 x$ RIGHT$(textl$,I):GOSUB 7690 
5870 IF t.xtr$)-"A" ANO textr$(-"L 
THEN bytel VAL('&X01"+x$):x$-textr 
$: GOSUB 7690: byte I-VAL< "&X" +BIN$( by 
tel,5)+x$):RETURN 
5880 bytel=VAL<"&X00 +x$t '110"):x$- 
textr$:GOSUB 7570:byte2 x:RETURN 
5890 
5900 REM ex 
5910 READ textr$ 
5920 IF textr$- IX' THEN ind
x-&OD 
5930 I F tex tr$-"IY" THEN ,ndex-&FO 
5940 IF INSTRltextl1o,"S ) THEN byte 
I=&E3:RETURN 
5950 IF textr$ 'HL" THEN bytel &EB 
ELSE bytel &8 
5960 RETURN 
5970 
59B0 REM --- dJnz - 
5990 bytel=&le:x$-MIO$(t
xtl$,INSTR 
(textl$,' ")tI) :GOSUB 7570:GOSUB 75 
20:byte2=x:RETURN 
6ti13e 
6010 REM = ¡m -=- 
6020 bytel=&ED:x=VAL(RIGHTf(textl$, 
1) 
6030 bvte2 -&46
(x-0\-&56
(x=I)-&5E 
*(x=2) 
6040 RETURr< 
6050 
6060 REM -= In 
6070 REAO textr$ 
60S0 IF textr$=" (C)' THHj bytel=&ED 
:x$=RIGHT$(t
xtl$.I) :GOSUB 7690:byt 
e2 lv'AL! "&X01' +x$'"OOe") :RETURN 
6090 bytel &OB:x$ MID$(textr$,2,INS 
TR(textr''f.. ') ')-2) :GOSU8 7570:byte2 
x : RETUR
J 
6100 
6110 REM === out 
6120 REAO textr10 
613« 1 F INSTR< tex t I $,' C") THEN byte 
1=&EO:x$ t
xtr$:GOSUB 7690:byte2-VA 
L('&XOI"+x$+"001 '):RETURN 
6140 bytel-&03:x$ MH'$(text1S,6,INS 
TR(textl$,' )")-'6):GOSUB 7570:byte2- 
x:RETURN 
6150 
6160 REM call == 
6170 x$=RIGHT$(t
xtl$.2):GOSUB 7410 
61S0 IF x--l THEN x$ MID$(textl$,6) 
:GOSUB 7570:GOSUB 7480:bytel-&CO:bY 
te2=lb:byte3-hb:RETURN 
6190 bytel VAL<"&XII"+BIN$(x,3)+"10 
0"):REAO t ex tr$:x$-textr$:GOSU8 757 
o :GOSUB 74B0 :", ,e2 1 b:byte3 hb:RETU 
RN 
6200 
6210 REM - jr --- 
6220 x$-RIGHT$(textl$,2):GOSUB 7410 
6230 IF x=-1 THEN x$-MIO$(textl$,4) 
:GOSUB 7570:GOSUB 7520:bytel &18:by 
t
2=x: RETURN 
6240 bytel-VAL< '&X001 "+SJN$(x ,2)+"0 
00") :REAO textr1o:x$ t
xtr$:GOSUB 75 
70:GOSUB 7520:byte2 x:RETURN 
6250 
6260 REM --= JP -= 
6270 lF INSTR(t
xtl$,"X ) THEN inde 
x=&OO 
6280 1 F INSTR! tex t 1 $, 'Y') THEN I nde 
x &FD 
6290 [F INSTRltextl$, (") THEN byte 
1 &E9:RETURN 
6300 x$ RIGHT$(t-xtl$,2):GOSUS 7410 
6310 IF x--l THEN x$ MIO$(t
xtl$,4) 
:GOSUS 7570:GOSUB 74S0:bytel-&C3:by 
te2 Ib:byte3=hb:RETURN 
6320 byte! VAL!"&XII"+BJN$(x,3)t'0¡ 
e ):REAO textr$:X$-textr$:GOSUB 757 
0:GOSUB 7480:byte2 lb:byte3-hb:RETU 
RN 
6330 
6340 REM - ret 
6350 IF textl$="RET" THEN bytel-&C9 
ELSE x$ RIGHT$(textl$,2):GOSUS 741 
o :bytel-VAL< "&Xl1" +SIN$( x, 3)+ 000") 
6360 RETURN 
6370 
6380 REM finales -- 
6390 x$-t
xtl$:bytel--&IF>(x$ "RRA' 
)-&F>(x$-' RRCA")-&37*(x$-"SCF")-&3F 
>(X$-"CCF")-&2F>(x$-"CPL")-&27*(x$- 
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"DAA")-&F3*(xS="DI")-&FB*(x$ 'EI")- 
&D9*(x$- EXX )-&76'(x$ 'HALT" )-&17
 
(x$=" RLA") -&7*( x$ 'RLCA") 
6488 RETURN 
6418 : 
6428 x$= t ex t 1 $: x=-&A9", (x$- CPO") -&¿ 
7*(x$-"RRO")-&B9*lxS='CPOR")-&AIO(x 
$- CPI")-&BI*(x$ "CPIR')-&AA"(xS-"1 
NO") -&BA*( x$=" INOR") -&A2"'1 x
-" INI ' \ 
-&B2*(x$-"INIR")-&AS'(x$ "LDD )-&8E 
*Ix$ "LOOR )-&A0*lxS="LOI )-&B0'(x$ 
='LDIR") 
6438 byte2 x-&44*(x
 "NEG")-&88*Cx$ 
'OTDR' )-&B3*lx$-' OTIR" ¡-&AB*'x$-"O 
UTD")-&A3*lx$ "OUTI' )-&4D*(x.-'RETI 
")-&45*Cx$="RETN")-&6F*Cx$ "RLD" 
6448 bytel &ED:RETURN 
6450 
6468 REM 
nd/sub/xar 
6478 byte &A6:GOTO 6538:'and 
6488 byte &96:GOTO 65a8:'aub 
6490 byte &AE:GOTO 6538:'xor 
6508 byte &BE:textl$ 'CP +MID$(tex 
t1S,3) : GOTO 6538:'cp 
6518 byte-&B6:hxtl$-"OR '+MID
It.x 
tl',3) : GaTO 6538:'or 
6528 
6530 IF INSTR(textl$, 1 ) GOTO 6578 
6540 IF INSTR(lextl$,"Hl ) THEN byt 
el =by te : RETURN 
6558 x$ RIGHT.(textl$,I):IF (x$)-'A 
, ANO xS(-"l") AND INSTRltextl$, '&" 
)-8 THEN GOSUe 7690:bytel-(byte AND 
&XIII1100e)+VAl('&X'+x$):RETURN 
6568 bytel-byte OR &XI8eee88:x$-MID 
$(textl$,5):GOSUB 7578:byte2 x:RETU 
RN 
6578 IF INSTRltextl$, 'IX") THEr
 ind 
ex-&DD ElSE Index-&FD 
6588 bytel byte:x$-MID$(textl$,9,IN 
STR(textl$,")")-9):GOSUB 7578:byte2 
-x:RETURN 
6590 
66e8 REM c-- sla/,ra/srl/rlc/rl/rrc 
/rr 
6618 byte-&26:GOTO 6698:'sla 
6620 byte-&2E:GOTO 6698:'sra 
6638 byte-&3E:GOTO 66ge:'srl 
6640 byte &6:GOTO 6698:'rlc 
6658 byte &16:textl$ 'RL '+MIDS(tex 
II$,3):GOTO 6690:'rl 
6668 byte &E:GOTO 6698:'rrc 
6678 byte=&IE:textl$ "RR "+MID.(tex 
tIS,3):GOTO 6698:'rr 
6688 : 
6690 IF !NSTR(textl$,"1 ) GOTa 673e 
67ee bytel &CB 
6710 IF INSTRltextl$, 'Hl') THEN byt 
e2-byte:RETURN 
6720 x$-RIGHT$( textlS, 1): IF x$) "A' 
AND x$(-"l' THEN GOSUB 7698:byte2 
(byte ANO &XllI11e88)+VAlC"&X"+x$): 
RETURN 
6738 IF INSTR(textl$,"IX") THEN Ind 
ex &DD ElSE index &FD 
6748 bytel-&CB:x$-MIo$(textl$,9,INS 
TR( tex t 1$, ')") -9) : GOSUB 7570 :byte2- 
x:byte3-byte:RETURN 
6750 
6768 REM == inc/dec --- 
6770 IF INSTRI3,textl'."I") THEN 130 
TO 6828 
6788 byte=-!o.(textl'(' 1") 
ó7'ie IF nISTR(texll'."CH') THEr
 byt 
el-&34 OR b,te:RETUPN 
68e0 IF RIGHT.(textl$.2)(' '" THEr
 x 
£-R 1 GHT' '. t ex t I 
 , 1 ) : GOSU8 7698: by t el 
-byte OR VAU"&X00"+x'+"lee ') :RETUR 

J 
';.81 e t,,' t e--8* ( t e x t l $ (" I ') ". R I GHT$ 
Itextl',2):GOSUB 7738:bylel=byle OR 
,iAL< "&Xe8 '+x$+ 'eel1 ) :RETURN 
6828 ¡ F INSTR( lex t I ¡,' IX") THEN ¡ nd 
ex-&oD ElSE ,ndex &Fo 
683e IF lNSTR(textl$,"( ') THEN byte 
-I*'textl'("!"):b,.tel &34 OR byte: 
x, 
1¡D.(textl.,9,INSTR(textIS,")")- 
9):GOSUB 7578:b,.te2-x:RETURN 
6840 byte=-8*(textl$("¡ '):bytel-&23 
OR byte :RETURN 
6858 
6868 REM -== etlquet
s 
6870 PEN 1 :k%--1 :x'-MIO$(textIS,2) 
6888 IF INSTR(xS, '»8 THEN xS-lEF 
TS( x,, INSTR( x.. "=") -1) 
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6898 
6988 
6918 
6928 
1+1 
693e IF nurrol )58 THEN PRINT:PRINT "T 
00 many labels" :STOP 
694e label'IK%) x' 
6958 IF INSTRC textl$,' ')-8 THEN va 
lueIK%) pc:RETURN 
6968 x'-MIo'ltextl',INSTRltextl$," 
" ) + 1 ) : GOSUB 7570: val u el k%) x 
6978 RETURN 
69S8 
6990 REM sbc/adc - 
7ee8 byte-&XI8011110:GOTO 7820:'sbc 
7ele byte &Xle88111e:GOTO 7820:'adc 
7828 REAo textr' 
7030 IF INSTR(textl',"Hl") THEN x.- 
textrS:GOSUB 7738:bytel-&EO:byte2 V 
AL< "&X81, +xS+"8eI0 ')+18 ANO textl'< 
"S"):RETURN 
784e IF textr$)="A' ANO textrS(- l' 
THEN byte byte ANO &XIIII1000:x$-t 
extrS:GOSUB 76ge:bytel-byte+VALI"&X 
"+x$) :RETURN 
7858 IF textr'-"IHl)" THEN bytel-by 
te :RETURN 
786e IF !NSTRltextr',"I") GOTO 7880 
7870 bytel byte OR &XI088800:x$=tex 
tr':GOSUB 7578:byte2-x:RETURN 
7088 1 F INSTRI tex tr', "IX') THEN I nd 
ex-&oO El SE Index-&FD 
7090 bytel byte:x' MIO'ltextr',5,IN 
STRltextr$,")")-5):GOSUB 7578:byte2 
x:RETURN 
7180 
711e REM bl t/
et/res = 
7120 byte=&XI008008:GOTO 7l58:'bit 
713e byte &XI88e000e:GOTO 7i5e:'re
 
7148 byte &XI1888000:GOTO 7150:'set 
7158 REAo textr$:x=VAlIRIGHT'ltextl 
',I»:byte2 byte+VAlI"&X'+BIN'lx,3) 
+ 888") 
7160 IF INSTRltextr'$, '1") GOTO 7200 
: ' I x/ r y 
717e bytel-&CB 
7188 IF textr' (HU' THEN byte2 by 
te2+VAL< '&XI10") :RETUR

 
7198 x$ textr$:GOSUB 7698:byte2 byt 
e2+VAlI '&X"+x.):RETURN 
7288 IF INSTRltextr',' IX") THE¡
 ",d 
ex=&DD ElSE ,ndex-&FD 
7210 byte3=b> te2+VAL< '&Xl1 O") : bvtel 
-&CB:x$ MI0'lt
xtr$.5.INSTRCtextr'. 
") ')-5) :GOSUB 7570 :byteZ-x :RETURN 
7220 
7238 REM -=c 
dd 
7248 READ textr$ 
725e IF INSTR(textl', 'Y") THEN ".de 
x &FD 
7268 IF INSTRltextl','X ) THEN inde 
x &OD 
727e IF INSTRI textl', "l') OR INSTRC 
textl$,' 1") THEN x.=textr$:GOSUB 77 
38:bytel VAlI'&X88' +xS+"leel") :RETU 
RN 
7288 IF textr')-'A" ANO textr$(-"l' 
THEN x.-textr$:GOSUB 7690:bytel VA 
U"&XH3ee8"+x$) :RETURN 
7290 IF textr$ "CHl)' THEN byt.lg&8 
6:RETURN 
7308 IF lNSTRltextr$,"1 ) GOTO 7320 
: / adc a., ( i x/ I y+ n) 
7310 bytel-&C6:xS=textr':GOSUB 7570 
:byte2 x:RETURN 
7320 IF INSTRltextr$,.Y") THEN inde 
x=&FD ElSE ,ndex &DD 
7330 bytel=&86:x$ MIO$Ctextr.S,5,INS 
TRCtextr',") ')-5):GOSUB 7578:byte2 
x:RETURN 
7348 
7358 
7368 
7378 
73B8 
7390 
7488 
7418 REM 
x$ -) x 
7420 x -1 
7438 FOR j%-8 TO 7 
7440 IF x$ cand$IJ%) THEN x J% 
7458 NEXT 
7460 RETURN 
7470 


FOR J'
=O TO nurr,] 
IF x'=labeISCj%) 
NEXT 
IF K%--I THEN K% 


THEN k% j% 


numl :numl num 


REM - pr/nt hex$Cx) === 
POKE pc,x:pc-pc+l 
IF x<16 THEN PRINT "listo,"8"; 
PRINT "listo,HEX'lx>: "; 
RETURN 


get code fo
 condi tlon 



 



ódigo 
máquina 


74B8 REM 


x -) byteb
jo,byte
lto 


7498 Ib-x-256*INTlx/256):hb-INTlx/2 
56) 
7500 RETURN 
7518 
7520 REM --= calcula salto 
7530 IF x)255 THEN x-x-pc-2:IF x)25 
5 THEN PRINT textl'; Toa far":END 
7548 IF x(8 THEN x=x+256 
7550 RETURN 
7568 
7578 REM =-= x',number/label -) x,n 
umber = 
7580 WHllE x,C"''':x.=MIO$lx$,2):WEN 
D 
7598 1 F lEFT.( x,, 1) "& THEN x VAL< 
x$)-65536*IVAllx.)(0):RETURN 
7600 IF lEFT$lx',I»-"8" AND lEFT.I 
x,, 1) ( "9" THEN x VAL< x,) : RETURN 
7610 IF lEFT'(x',l)='%" THEN x VAle 
"&X' +MIoS(x',2»:RETURN 
7628 IF pa
s-2 THEN x -1 ElSE x 0:P 
ETURN 
7630 FOR J%-0 TO numl 
764e IF ¡..bel$' ¡'/')-x$ THEr
 x-,,
; yO' 


.J /.) 
7650 ¡'IEXT 
766e IF x<O THE
I PRINT textl$': l..b 
e 1 
?" : Er
D 
7670 PETURII 
7680 : 
7690 REM 
== x$.r"eglster -) x$,blnd 
r..... cede ==- 
7700 x$=BIN'CASClx$)-66-8+cxS- A")+ 
2*lx$-"H' )+5*'x'-"l") .3) 
771 0 RETUR

 
7720 : 
7730 RE
I 
,binar) code 
7740 I F x$ "8C 
775e IF x'-"oE" 
776e ! F x$ "Hl' 
y" THEN x'="10' 
777e lF x$='SP THEN x$ '11' 
7788 RETURN 
77ge 
7See REM -== mr.
mon¡cos 
781e DATA ENo,.,AoC,Aoo,ANo,BIT,CAl 
L,CCF.CP,CPo,CPDR,C.PI,CPIR,CPl,DAA, 
DEC, DI, oJNZ, El, EX, EXX ,HAl T, 1M, IN, IN 
c., H
D, INoR, INI, INIR,JP,JR,lD,LDD,lo 
DR,lDJ ,lDIR,NEG,NOP,OR.OToR,OTIR 
7820 DATA OUT,OUTD,OUTI ,POP,PUSH,RE 
S,RET,RETI,RETN,Rl,RlA,RlCA,RLC,Rlo 
,RR,RRA,RRC,RRCA,RRD,RST,SBC,SCF,SE 
T,SlA,SRA,SRl,SUB,XOR,oEF 
78313 DATA NZ " 2 ,uNC',' C','PO', 
"PE&I. P '," Mil 


x$,register pair -) xS 


THEN x. '00 
THEN x$-"el' 
OR x$-" IX" OR x$- 1 
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Poro que lus dedo, 
no realicen ellroboto duro, Al H. AMS 
TRAD /0 hoce por li. Todos los ¡'slodos que irduyon 
esle logot/(JO se encuentron o lu dlsposicion en un (OS- 
selfe mensuol, sol"donoslo. 



uscríbete... 
y uno de estos tres 
sensacionales iuegos 
será tuyo... ¡GRATIS! 


M,H, AMSTRAD te da a elegir entre tres de los mejores juegos existentes en el mercado 
para AMSTRAD¡ COMBAT LYNX, DALEY THOMPSON'S DECATHLON y BEACH HEAD, cualquiera 
de los cuales puede ser tuyo solamente con suscribirte a nuestra revista. Aprove,ha esta 
o,as;ón ex,ep,;onal y ahorra 2.700 pesetas (precio de venta del programa) 
más el importante descuento que se produce en el . 
precio de cada número, por el hecho de ser DURELLsofTWARE 
suscriptor. Disfruta de las ventajas que supone 
recibir cómodamente tu revista a domicilio y de la 
seguridad de tener tu ejemplar aunque se haya 
agotado en los quioscos. 


-. 


E. t b I t ', d ". 
nVlanos u o e In e suscnpclon y no 
le des más vueltas, el número de juegos para 
regalos de suscripción, aunque grande, es li- 
mitado, y estos se podrían agotar mientras lo 
estás pensando. 


BEACH HEAD producido por U.S. GOlD es una mi- 
sión de desembarco en una costa fuertemente defendida 
por las fuerzas oeronavales enemigas. Debes conducir tu 
flota hacia la bahía y repeler el ataque aéreo, si lo consi. 
gues tu siguiente obstáculo será una flotilla de destructo- 
res y acorazados, superada la cual desembarcarás tus an- 
fibios en las arenas de la bahía. estos deben superar los 
defensas costeros y llegar a la fartaleza que es el objetivo 
final. 


COMBAT L YNX simula una misión de defensa de unas 
bases atacadas por una división acorazada. Disponemos 
para enfrentarnos a ellos de un modernísimo helicóptero. 
Este juego podría incluirse dentro del catálogo de los de 
estrategia. y su complejidad le dota de una gron dosis de 
adicción y belleza. 


DALEY THOMPSON'S DECATHLON con este jue- 
go OCEAN enciende la llama olímpica y te reta a superar 
los récords de los campeonatos de todos los tiempos, el 
decathlon se desarrolla en dos días de competicián y se 
compone de las siguientes pruebas: 
PRIMER OlA: 100 m lisos, salto de longitud, lanzamien- 
to de peso, salto de altura y 400 m lisos. 
SEGUNDO OlA: 110 m vallas, lanzamiento de disco, sal- 
to con pértiga, lanzamiento de jabalina y los 1.500 m. 
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Utiliza el cupón 
adjunto a la revista 
o suscríbete por 
teléfono 
(91) 733 50 12 
(91) 733 50 16 
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GENERADOR DE 
PALABRAS CLAVE 


Una de las primeras cosas que debemos intentar al crear 
nuestra primera obra maestra, es protegerla de intrusos por 
medio de una palabra clave. 
Esta palabra, debe ser fácilmente reconocible por nosotros 
mismos e incomprensible para los demás. 
El generador de palabras clave, es un medio idóneo para 
encontrar estas series de letras que para los demás no tienen 
sentido alguno r que nosotros somos capaces de recordar 
fácilmente; ayudandonos a introducirnos de paso en el mundo 
del tratamiento de cadenas allanuméricas. 
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1
 REM GENERADOR DE PALABRAS e 
LAVE ' 
20 REM **********
*****

***
* 
**** 
3
 WHILE estado 
 
49 c1av
$ :
P5puesta$-. 
se 1et
as$= abcd
ighjJKlm
oPQr 
stuuwxyz. 
6
 WHILE long' tud(1 OR long' tu 
d)12 
7
 INPUT "numero de 
la. clave ¡longitud 
8
 WEND 
9
 FOR ciclo 1 TO longl tud 
1

 earador$ MID$(letnas$,INT 
(RND'LEN(letra
$».l ,1) 
119 c1ave$ clave$+caracter$ 
12
 NEXT ciclo 
13
 PRINT clave" 
14
 WHILE INSTR( 'Ss,Nn ,respue 
sta$) 0 OR respuesta$=n 
115
 INPUT "te gusta esta? S/N 


.' 


.,r@spuesta.. 
168 WEND 
178 IF INSTR(.Ss.,respuesta$)( 
>8 THEN estado-I 
1 e8 WEND 
19
 PRINT"la palabra clavo os 
lptras de ** c1av
$. ** 
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10,20 Título del programa. 
30-180 Contiene el ciclo principal WHI- 
LE...WEND, que controla el programo. 
La variable ESTADO, actúa como controla- 
dor del ciclo; éste continúa rotando mientras 
aquéllo es falsa (valor O), produciendo coda 
vez una clave distinta. 
40 Inicial iza los dos variables alfanuméri- 
casi dándoles a cada uno el valor nulo o ca- 
dena vacía, cada vez que se repite el ciclo 
principal. Sería interesante suprimirla yobser- 
var los resultados, 
50 LETRAS$, contiene todas los letras del 
abecedario y es el lugar donde el programo 
elige las letras que componen las retorcido pa- 
labra clave. 
En nuestro coso hemos puesto el abeceda- 
rio, pero mentes más pueden colocar cualquier 
combinación de los caracteres que contiene el 
teclado. 
60-80 La primera trampa, con ésto obli- 
gamos 01 usurario o introducir el número de 
letras que va a contener la palabro clave. 
El WHILE....WEND que lo controlo, sola- 
mente admite respuestos que contengan de 
uno a diez caracteres. 
90-120 El ciclo FOR....NEXT, se repite 
una vez por cada una de las letras que com- 
ponen la palabro clave. 
100 Constituye la línea que selecciona 
aleatorio mente, uno letra de la variable 
LETRAS$, almacenándola en CARACTER$. 
110 Coda vez que se repite el ciclo, la úl- 
tima letra contenido en CARACTER$ es aña- 
dida al final de la variable CLA VES, que al 
concluir el FOR....NEXT, contendrá la pala- 
bra clave completa. 
130 Muestra en pantalla, la nueva clave 
formada. 
140-160 Lo segunda trampa, pregunta 
si el usuario acepto la palabra clave y guar- 
da el resultado en RESPU EST A$, 
Los condiciones del ciclo WHILE....WEND, 
se ocupan de asegurar que solamente las res- 
puestas correctas sean aceptados. 
170 Si la respuesta es sí (S o s), la varia- 
ble ESTADO tomo el valor -1, finalizando el 
ciclo principal. En caso de que lo respuesta seo 
negativa (N o nI, ESTADO sigue teniendo el 
valor O, lo que produce que el ciclo se repito 
de nuevo. 
190 Cuando el programa sale del ciclo 
principal, al tener ESTADO el valor -1, lo pa- 
labra clave elegido es mostrado en pantalla. 
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SOLICITUD DE CINTAS DE PROGRAMAS Y NUMEROS ATRASADOS 


:J Deseo recibir en mi domicilio, al precio de 675 ptas. cada una, las siguientes cintas con los programas 
publicadas por Microhobby AMSTRAD Marco con una (X) la(s) cinta(s) que deseo: 


o Cinta n.o 1 (contiene programas publicados en revistas 1 al 4 inclusive) 
O Cinta n.o 2 (conliene programas publicados en revistas 5 al 8 inclusive) 
O Cinta n.o 3 (contiene programas publicados en revislas 9 al 12 inclusive) 
O Cinta n.o 4 (contiene programas publicados en revistas 13 al 16 inclusive) 
O Cinta n.o 5 (contiene programas publicados en revistas 17 al 20 inclusive) 



. 
] 


o Deseo recibir en mi domicilio, al precio de 150 ptas. cada uno, los siguientes números atrasados de 
Microhobby AMSTRAD 


Nota: Por razones admmislratlvas, no podemos admitir soliciludes de envio de clnlas o numeras sueltos con pago contra reembolso o 
Tarjela de Crédito. Por favor, envia talón por el Importe o giro postal. 
SI la lorma de pago elegida es talón bancano, remilelo.junto con esle cupón en un sobre cerrado a la misma dileCCión. 
Las cintas de programas se editan una cada mes Si solicitas vanas las recibirás sucesivamente, conlorme sean editadas. No se cobran 
gastos de envio por las cintas y numeros sueltos. 


NOMBRE 
APELLIDOS 
DOMICILIO 
CIUDAD 
C. POSTAL 


EDAD 


/ 


TELEFONO 


PROVINCIA 
PROFESION 


, 


Marco con una (X) en el casillero correspondiente la forma de pago que más me conviene. 
O Talón bancario adjunto a nombre HOBBY PRESS, S. A. O Giro Postal N." 
Firma: 
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64 


IVIUIIUUI ae l<eTerenCla tsaslc 
para el Programador 
Lo más autorizado y completo 
guía para programar en 
Locamotive Basic. 
3.400. - PIs. 


CODIGO MAQUINA 
PARA 
PRINCIPIANTES 
CON AMSTRAD 
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SteveK . " " 


Código móquina para 
principiantes con AMSTRAD 
Ideal para iniciarse en el código 
máquina del Z80 y en el 
sistema operativo del AMSTRAD. 
2.100.- PIs. 


Técnicas 1;;' 
Programafión 
de Grillicos 
;../ e :'I/"
(. 1 
W fard JaI'l'leS 


.. .. 
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AMSTRAD 


Técnicas de Programación de 
Gráficos en el AMSTRAD 
Este libro enseña o aprovechar 
las excelentes funciones 
gráficas del AMSTRAD, con 
múltiples ejemplos. 
1.950.- PIs. 


Juegos :sensaClonOles para 
AMSTRAD 
Listados completos de 27 
estupendos juegos de muy 
diversos estilos. 
1.950.- PIs. 
Hacia la 
\M S1J!B:A'O 
lnteli!p!ncia .. .. 
A.rtiflcial con 
A.mstrad 


Programando con AMSTRAD 
Fundamental para el usuario 
principiante. 
Ameno y repleto de ejemplos. 
2.400.- PIs. 


Música 
 
ySonidos -
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llmstrad 



 -..1 J; 

. ""t..._ 
... ",',- 
.., ..
; 
 
,;, 1": 

r x- 
" v 
I 


'. 


.'",- 
) . 


/
- 'o. 
I 

' 

, 1 


....:- 
 
f4
 


- ,-- 


. .. 
l' ""- 
. 


Jeferny Vi 
Hacia lo Infeligencia Artificial 
con AMSTRAD 
Convierto su AMSTRAD en un 
compañero inteligente 
1.500.- PIs. 


Músico V Sonidos con 
AMSTRAD 
Programe música y efectos 
sonoros y convierta su 
AMSTRAD en un sintetizador. 
1.200.- PIs. 
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Curso Autodidácfico de Basic IVIl 
Un completo y estructurado Curso de Basic apoyado con numerosos 
ejemplos y acompañado de cassettes. 
2.900. - PIs. codo volumen 


J 

 
i; 

 J 
6 ] 
I 
 

 
 
J 
J 
] 

) 
I 


ill [ú] 
Urnillrn 
CPC.464 


ill [D]
Umillrn 
CPC.464 


40 Juegos Educativos 
Listados completos 
(matemáticas, geografía, 
músico. etc.) para aprender 
divirtiéndose. 
1.950. - PIs. 


PROGRAMACION 
BASIC 
CON AMSTRAD 
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Programación de Basic con 
AMSTRAD. 
Imprescindible para el 
principiante y eficaz 
herramienta para el 
programador avanzado. 
2.100. - PIs. 
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PUBLICACIC>r\ES 


Avd. del Mediterráneo. 9 
Telfs.: 433 45 48 - 433 48 76 
28007 MADRID 
Delegación en Cataluña: 
CI. Tarragona. 110 - Telf. 325 10 58 
08015 BARCELONA 
DE VENTA EN EL CORTE INGLES 
Y TIENDAS ESPECIALIZADAS 
e Marco Reglslrudo por el Grupo Indescomp 
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10 REM GENERADOR DE PALABRAS e 
LAVE . 
29 REM ************
***

****
 
**** 
30 WHILE estado 0 
4a cla.veS- ua :PP5puesta'$= 
S0 1ptl"'asS
labcde
ghiJk1mnopqr 
stuvWXY% 
60 WHILE longitud(l OR longi tu 
d)IZ 
70 INPUT numero de letras de 
1a clave";longltud 
B0 WEND 
90 FOR cIclo 1 TO long; tud 
100 caracterS MIDS(letnasS,INT 
I RND*LENI le trasS» + 1 .1) 
110 c1av
S
clave$+caracter$ 
IZ0 NEXT ciclo 
130 PRINT claveS 
140 WHILE lNSTRI Ss,Nn ,respue 
staS)-0 OR respuestaS ' 
150 INPL'T "te gusta esta? S/N 
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,r@spuesta
 
160 WEND 
170 IF INSTRI "Ss' ,respuestaS) ( 
>0 THEN estado=l 
lB0 WEND 
190 PRINT'la palabra clave es 
** 'cl aveS **B 
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HOBBY PBESS,S.A. 


Apartado de Correos 


n.O 54.062 (Apartados Altos) 


MADRID 
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I 
pnnClpal. 
ena Interesante supnmlrla yobser- 
var los resultados. 
50 LETRAS$, contiene todas las letras del 
abecedario y es el lugar donde el programa 
elige las letras que componen las retorcido pa- 
labra clave. 
En nuestro caso hemos puesto el abeceda- 
rio, pero mentes más pueden colocar cualquier 
combinación de los caracteres que contiene el 
teclado. 
60-80 La primera trampa, con ésto obli- 
gamos al usurario a introducir el número de 
letras que va a contener la palabro clave. 
El WHILE....WEND que lo controlo, sola- 
mente admite respuestas que contengan de 
uno a diez caracteres. 
90.120 El ciclo FOR....NEXT, se repite 
uno vez por coda una de las letras que com- 
ponen lo palabra clave. 
100 Constituye la línea que selecciona 
aleatoriamente, una letra de la variable 
LETRAS$, a\macenándola en CARACTER$. 
110 Cada vez que se repite el ciclo, la úl- 
tima letra contenido en CARACTER$ es aña- 
dida al final de la variable CLA VES, que 01 
concluir el FOR....N EXT, contendrá la pala- 
bra clave completa. 
130 Muestra en pantalla, la nueva clave 
formada. 
140.160 La segundo trompo, pregunta 
si el usuario acepta la palabra clave y guar- 
da el resultado en RESPUEST A$. 
Los condiciones del ciclo WHILE....WEND, 
se ocupan de asegurar que solamente los res- 
puestas correctas sean aceptados. 
170 Si la respuesta es sí (S o s). lo varia- 
ble ESTADO toma el valor -1, finalizando el 
ciclo principal. En caso de que lo respuesta sea 
negativo (N o n), ESTADO sigue teniendo el 
valor O, lo que produce que el ciclo se repito 
de nuevo. 
190 Cuando el programa sale del ciclo 
principal, al tener ESTADO el valor -1, lo pa- 
labra clave elegida es mostrada en pantalla. 
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Manual de Referencia Basic 
poro el Programador 
Lo más autorizado y completo 
guío poro programar en 
Locomofive Basic. 
3.400. - PIs. 


CODlGO MAQUlNA 
PARA 
PRINCIPIANTES 
CON AM TRAD 
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Steve Kramer 


Código máquina para 
principiantes con AMSTRAD 
Ideal para Iniciarse en el código 
máquina del Z80 y en el 
sistema operativo del AMSTRAD. 
2.100.- PIs. 


Técnicas de 
Programafión 
de Grillicos 
eneJ 11 /I{
If;!, 

n(otd ./ames 


AMSTRAD 


Técnicos de Programación de 
Gráficos en el AMSTRAD 
Este libro enseña a aprovechar 
las excelentes funciones 
gráficas del AMSTRAD. con 
múltiples ejemplos. 
1.950.- PIs. 
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A MSTRAD 
Juegos Sensacionales para 
AMSTRAD 
Listados completos de 27 
estupendos juegos de muy 
diversos estilos. 
1.950.- PIs. 
Bada la 
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JeI'emy Vine 
Hacia lo Inteligencia Artificial 
con AMSTRAD 
Convierta su AMSTRAD en un 
compañero Inleligenle 
1.500. - PIs. 
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1,1 Sil I 
Programando con AMSTRAD 
Fundamental para el usuario 
pnncipiante. 
Ameno y repleto de ejemplos. 
2.400. - PIs. 


Música 
y Sonidos 
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Música y Sonidos con 
AMSTRAD 
Programe música y efectos 
sonoros y convierta su 
AMSTRAD en un sintetizador. 
1.200.- PIs. 
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Curso Autodidácrico de Basic I y 11 
Un completo y estructurado Curso de Basic apoyado con numerosos 
ejemplos y acompañado de cassettes. 
2.900.- PIs. coda volumen 
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40 Juegos Educativos 
Listados completos 
(malemáticas, geografía. 
música. etc.) paro aprender 
divirtiéndose. 
1.950.- PIs. 


PROGRAMACION 
BASIC 
CON AMSTRAD 
I \
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Programación de Basic con 
AMSTRAD. 
Imprescindible para el 
principiante y eficaz 
herramienta paro el 
programador avanzado. 
2.100. - PIs. 
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PUBlICACIONES 


Avd. del Mediterráneo, 9 
Tells.: 433 45 48 - 433 48 76 
28007 MADRID 
Delegación en Cataluña: 
CI. Tarragona. 110 - Telf. 325 10 58 
08015 BARCELONA 
DE VENTA EN El CORTE INGLES 
Y TIENDAS ESPECIALIZADAS 
e Marca Reglslrada par el Grupa Indescamp. 
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SISTEMA COMPLETO CON MONITOR 
EN FOSFORO VERDE, MANUAL EN 
CASTELLANO, GARANTIA OFICIAL 
AMSTRAD ESPAÑA, DISCO CON SIS- 
TEMA OPERATIVO CP/M 2.2 y LEN- 
GUAJE DR. LOGO, DISCO CON SISTE- 
MA OPERATIVO CP/M PLUS (CP/M 
3.0) y UTILIDADES, DISCO CON SIETE 
PROGRAMAS DE OBSEQUIO 
109.500 PtS. 
SISTEMA COMPLETO IGUAL AL ANTE- 
RIOR PERO CON MONITOR EN COLOR. 
134.500 Pts. 
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